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INTRODUCTION 


This  manual  describes  the  SMITE  (Second  order  Moving  Interface  Two 
dimensional  Eulerian)  code  for  hydrodynamic  and  elastic-perfectly  plastic 
problems.  The  code  is  based  on  an  I  ilerian  formulation  for  the  numerical 
model.  Eulerian  methods  are  characterised  by  a  mesh  which  is  fixed  in  space 
for  all  times.  The  materials  are  allowed  to  move  freely  through  this  grid. 
In  the  SMITE  code,  each  material  has  its  own  independent  grid.  Thus,  the 
mesh  spacing  and  number  of  mesh  grids  in  one  material  is  in  no  way  affected 
by  that  in  another  material.  The  equations  are  also  solved  in  a  trans¬ 
formed  plane.  This  allows  for  transformations  to  be  used  which  concentrate 
the  mesh  points  in  regions  of  greatest  interest. 

The  extent  of  each  domain  is  determined  by  particles  or  material  points 
which  define  the  domain  boundary.  These  points  are  moved  in  a  Lagrangian 
sense  by  integrating  the  ordinary  differential  equations  relating  their 
positions  and  velocities.  The  values  at  the  boundary  points  are  subject  to 
free  surface  and  interface  conditions.  The  interface  conditions  provide  the 
only  communication  between  the  various  material  domains. 

The  model  upon  which  the  SMITE  code  is  based  is  fully  described  in  the 
report  "A  Second  Order  Numerical  Model  for  High  Velocity  Impact  Phenomena" 
by  t.he  same  authors.  All  references  in  this  manual  are  to  sections  of  the 
above  report. 
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II. 


SUBROUTINE  LOGIC 


2.1  Main  Program 

The  main  program  controls  ths  overall  logical  flow  of  the  code.  INITAL 
is  called  to  read  input  and  initialize  the  run.  All  time  increment*  are 
added  to  the  starting  time  to  determine  whan  the  processes  dependent  on  these 
increments  will  next  occur.  The  cycle  count  is  incremented  to  start  the  main 
loop  The  time  step  is  set  to  the  miniaw  of  the  CFL  time  step  determined  for 
all  materials.  If  this  time  step  is  lsss  than  the  minimum  allowed,  a  message 
is  printed  and  the  run  aborted.  The  time  is  incremented  and  MVBND  called  to 
move  all  material  boundaries.  ADJIWT  is  then  called  to  determine  the  new  inter- 
fa  ce  locations  and  adjust  the  boundary  positions  accordingly.  Initial  boundary 
values  for  each  material  are  extrapolated  from  the  interior  by  calling  BOIJDRY  , 
DENSB  is  then  called  to  satisfy  boundary  conditions.  Ths  routine  now  loops 
through  the  material.  GENVAL  sets  the  proper  material  dependent  mesh  and  array 
bound  values.  FDIFF  is  called  next  to  solve  the  finite  difference  equations. 
FINISH  is  then  called  to  determine  if  any  shifting  of  the  domain  or  rezoning 
of  its  boundary  is  necessary.  The  positions  where  the  boundaries  cross  the 
mesh  lines  are  determined  by  calling  BPOSN  and  BVALU  is  called  to  calculate 
the  crossing  coordinates  and  the  variable  values  at  these  crossing  pornts. 

Values  are  then  interpolated  at  all  interior  mesh  points  for  which  the  finite 
difference  equations  could  not  be  used  by  calling  INTRPL.  This  ends  the 
material  loop.  The  error  flag  is  chocked  and  if  it  is  3et  the  run  is  aborted 
SECOND  is  called  to  obtain  the  elapsed  running  time.  If  the  running  time  or 
problem  time  are  greater  than  their  maximum  values,  the  run  is  ended.  The 
problem  time  is  compared  to  the  time  at  which  the  next  printer  plot  is  desired. 
If  this  time  has  been  exceeded  PRNPLT  is  called  and  the  printer  plot  increment 
is  added  to  the  printer  plot  time.  The  same  is  done  with  PLTOUT  for  plotter 
output,  OUTPUT  for  printed  output  and  SAVE  for  restart  output.  The  next 
time  cycle  is  then  started.  At  the  end  of  a  run  all  desired  output  is  generated 
regardless  of  the  respective  time  increments. 

2.2  ADJINT 

Subroutine  ADJINT  determines  the  locations  of  material  interfaces  and 
adjusts  boundary  positions  accordingly.  In  its  present  state,  it  is  a  rather 
ad  hoc  routine  which  makes  strong  assumptions  regarding  material  orientation 
and  relative  position.  If  a  particular  problem  does  not  meet  these  conditions, 
ADJINT  will  have  to  be  modified  or  rewritten  for  that  problem.  It  is  assumed 
that  all  interfaces  exist  at  the  start  of  the  problem.  If  the  boundaries  of 
the  two  materials  penetrate  each  other,  it  is  assumed  that  the  first  material 
(material  A)  that  appears  in  the  interface  specification  is  the  predominant 
material.  The  interface  points  of  the  second  material  (material  B)  will  be  re¬ 
placed  by  those  of  material  A.  The  task  of  ADJINT  is  to  determine  the  exact 
extent  of  the  interface.  All  boundaries  consist  of  three  segments  which  are 
divided  by  the  boundary  points  into  linear  sub-segments.  It  is  assumed  that 
the  interface  starts  with  the  first  point  of  material  A  and  the  last  point  of 
material  B  and  hence  that  material  A  is  on  the  right  of  material  B.  In  order 
to  find  the  end  of  the  interface,  the  logic  is  to  find  a  point  on  each  boundary 
not  on  the  interface  and  then  trace  the  boundaries  toward  the  interface  until 
they  first  intersect.  It  is  further  assumed  that  the  interface  lies  entirely 
within  the  third  segment  of  material  B.  The  maximum  z  coordinate  of  material  B 
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is  found  and  then  the  last  point  of  tutorial  A  whose  z  .-oordinate  is  less 
than  this  maximum  value.  The  next  point  on  material  A  is  the  endpoint  of 
the  last  material  A  sub-segment  that  can  intersect  the  soundary  of  material 
B  so  that  no  additional  points  on  the  material  A  houndary  are  considered „ 

The  maximum  r  coordinate  of  the  valid  material  A  points  is  determined  and 
then  the  first  material  B  point  less  than  this  value.  This  point  defines 
the  endpoint  of  the  first  material  B  sub-segment  than  can  intersect  the 
boundary  of  material  A.  A  box  is  drawn  around  the  material  B  sub-segment 
and  the  first  and  last  material  A  sub-segments  that  enter  this  box  are  de¬ 
termined.  Only  those  sub-segments  of  material  A  between  these  end  segments 
can  possibly  intersect  the  sub-segment  of  material  B.  Starting  with  the 
last  material  A  sub-segment,  each  sub-segment  is  tested  for  an  intersection. 

If  an  intersection  is  found  then  the  lower  sub-segment  endpoints  define  the 
end  of  the  respective  interface  segments.  If  an  intersection  is  not  found, 
a  box  is  drawn  around  the  next  material  B  sub-segment  and  the  search  continues. 
Once  an  intersection  is  found,  the  material  B  interface  segment  is  replaced 
by  the  material  A  interface  segment.  Since  this  replacement  may  add  to  the 
total  number  of  material  B  boundary  points  a  test  is  made  to  see  if  the 
number  of  points  on  the  material  B  boundary  exceeds  the  maximum  allowable. 

If  so,  a  message  is  printed  and  a  flag  is  set  to  abort  the  run  at  the  end  of 
the  cycle. 

If  material  B  represents  material  domain  3  special  logic  is  provided.. 

In  this  case,  the  interface  segments  as  defined  upon  entering  ADJINT  are  used 
The  points  of  the  material  B  segment  are  simply  replaced  by  the  points  of 
the  material  A  segment.  No  assumptions  are  made  about  the  segment  location 
or  boundary  orientations. 

2.3  BONDRY 


This  subroutine  obtains  values  for  all  variables  on  the  boundaries  of 
the  material  domains.  The  boundary  point  coordinates,  which  upon  entering 
BONDRY  are  in  z-r  space,  are  first  transformed  to  a -6  space.  The  arc 
length  along  the  boundary  at  each  point  is  then  computed.  Boundary  values  are 
extrapolated  from  the  interior  by  choosing  the  closest  interior  mesh  point  to 
a  boundary  point  and  assigning  the  dependent  variable  values  at  this  mesh 
point  to  the  boundary  point  (5. a).  The  four  mesh  points  surrounding  a  boundary 
point  are  examined.  If  the  closest  mesh  point  is  interior  to  the  domain  it 
is  chosen;  if  it  is  not  interior,  the  next  closest  is  selected,  etc.  If  none 
of  the  four  points  are  interior  to  the  domain,  the  boundary  point  retains  the 
values  associated  with  it  from  the  previous  time  step.  These  extrapolated 
values  are  then  smoothed  to  prevent  a  step  function  appearance.  The  smoothing 
formula  used  is 


b.  =  a.  +  -T  r  (a. 
l  l  4  i+l 


2ai  +  ai-l> 


where  r  is  the  ratio  of  the  time  step  used  to  the  time  step  calculated  for  the 
material.  This  ratio  prevents  the  smoothing  operation  from  propagating  signals 
through  a  material  at  a  rate  greater  than  the  CFL  stability  condition  would 
allow. 
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2.4  E?OSN 


The  positions  where  the  boundaries  cross  the  mesh  lines  are  determined 

by  subroutine  BPOSN.  Two  similar  arrays  are  defined,  one  for  the  mesh  lines 

in  each  coordinate  direction.  Those  arrays  are  computed  by  systematically 

following  the  boundary.  The  logic  for  both  sets  is  identical,  so  that  only 

the  computation  of  the  crossings  of  the  lines  z»constant  will  be  described 

Let  Int(a)  be  the  largest  integer  less  than  or  equal  to  a  and  Az  be  the  mesh 

spacing  Then  i»Int(z  /Az)  implies  that  the  boundary  point  p  with  axial 
iq  n 

coordinate  z  lies  between  mesh  lines  i  and  i+1.  Starting  with  n=Int(2./Az) 
m  i 

values  of  i  are  determined  for  succeeding  boundary  points  until  i  is  not 

equal  to  n.  If  i  is  less  than  n,  mesh  line  n  has  been  crossed)  if  i  is  greater 

than  n,  mesh  line  n+1  has  been  crossed.  Let  p  ,  be  the  boundary  point  where  i 

nvf  1 

changed  value.  Then  the  boundary  crossed  a  mesh  line  between  point  m  and  m+1 
The  integer  m  is  entered  into  the  array  for  the  mesh  line  that  was  crossed  and 
all  entries  for  that  mesh  line  are  ordered  according  to  increasing  radial 
coordinate  values.  A  total  of  |n-l|  mesh  lines  may  have  been  crossed  and  an 
entry  is  madi  for  each  of  them,.  The  integer  n  is  then  reset  to  n»Int  (zm+^/Az) 
and  the  procedure  continues  until  the  entire  boundary  haB  been  traced 

2.5  BVALU 


BVALU  determines  the  coordinates  of  the  points  where  the  boundaries  cross 
mesh  lines  and  the  values  of  the  dependent  variables  at  these  points.  The  co¬ 
ordinates  of  a  crossing  are  defined  as  the  intersection  of  a  mesh  line  with  the 
straight  line  segment  between  the  boundary  points  on  either  side  of  it  The 
dependent  variable  values  are  then  obtained  by  interpolating  along  this  line 
segment. 


2.6  DEtlSB 

Boundary  conditions  are  satisfied  by  subroutine  DENSB,  INFACE  is  called 
to  satisfy  conditions  on  all  interfaces.  All  non-interface,  i.e  free  surface, 
points  are  then  determined.  The  normal  stress  at  these  points  is  then  set  to 
zero  (5.b) . 

All  interfaces  are  examined  and  an  array  is  created  which  specifies,  for 
each  material,  the  first  and  last  points  of  all  boundary  segments  that  are 
interfaces.  These  segment  endpoints  are  arranged  in  ascending  order  with  a 
zero  after  the  last  endpoint  to  signal  the  end  of  the  array.  Each  material  is 
then  processed.  The  boundary  coordinates  are  transformed  from  a-8  to  z-r  space 
and  the  transformed  values  are  stored  in  a  temporary  array.  Each  free  surface 
segment,  if  any,  will  be  all  those  boundary  points  lying  between  the  high  end¬ 
point  of  one  interface  segment  ar.d  the  low  endpoint  of  the  next  interface  seg¬ 
ment.,  The  local  slope  at  a  point  (z.,r.)  is  obtained  from  tan  ^  =  (z,  -z.  )/ 

(r.  -r.  For  the  normal  stress  io  vanish,  we  must  have  +1 

l+l  l-l 

2  2 
p  =  S  ^  sin  v  +  2  sin  i p  cos  V  +  S22  cos  i|i 

This  condition  on  pressure  is  satisfied  by  finding  the  internal  energy  and 
using  Newton-Rap! ison  iteration  to  solve  the  equation  of  state  for  the  proper 
density  The  density  at  the  free  surface  boundary  point  is  then  set  to  this 
value,  If  the  iteration  does  not  converge,  a  message  is  printed  and  a  flag  is 
set  to  abort  the  run  at  the  end  of  the  cycle 
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2.7  FDIFF 

The  finite  difference  equations  at  interior  mesh  points  are  evaluated  in 
subroutine  FDIFF  (4. a).  The  entire  mesh  is  shifted  in  memory  two  radial  lines 
to  the  right  (toward  higher  index  of  the  axial  mesh) .  It  should  be  noted  that 
the  solution  at  any  mesh  point  depends  only  on  the  mesh  lines  through  that 
point  and  on  either  side  of  it.  Hence,  if  the  solution  proceeds  along  radial 
mesh  lines  and  the  answers  are  stored  back  two  lines  to  the  left,  only  room 
for  two  additional  mesh  lines  need  be  added  to  the  memory  arrays  to  allow  the 
old  solution  to  be  overwritten  by  the  new  solution.  The  eight  nearest  neighbors 
of  a  mesh  point  are  examined  to  determine  if  any  lie  outside  the  domain.  The 
neighbors  are  ordered  and  if  the  nth  neighbor  is  missing  2n_1  is  added  to  a 
code  word.  The  neighbors  are  ordered  counterclockwise  with  the  four  nearest 
neighbors  first  starting  with  the  right  and  then  the  four  outer  neighbors  start¬ 
ing  with  the  upper-right.  If  the  code  used  is  non  zero,  all  neighbors  are  not 
interior  to  the  domain  and  ONESTP  is  called.  If  all  neighbors  are  present,  the 
two 


step  solution  may  be  used 

At  each  mesh  point  in  the  nine  point  solution  lattice,  the  transformed 
seven  component  vector  w  and  its  vector  functions  f,  g  and  h  are  computed  and 
stored  in  3x3  matrices.  In  both  steps  of  the  two  step  method,  the  difference 
equations  for  the  first  four  components  of  w  are  evaluated  first  and  then  the 
difference  equations  for  the  three  stress  components  are  evaluated.  Predicted 
values  at  the  four  midpoints  of  the  boxes  shown  in  the  above  figure  are  obtained. 
That  portion  of  the  second  step  which  depends  on  values  at  time  t  is  also  ob¬ 
tained.  The  artificial  viscosity  is  included  in  the  partial  second  step  eval¬ 
uation. 

The  predicted  values  are  used  to  define  the  f,  g  and  h  vectors  at  the 
lattice  midpoint.  The  remainder  of  the  second  step  of  the  solution  that  de¬ 
pends  on  the  predicted  values  is  then  obtained.  This  solution  is  transformed 
back  to  its  non-conservative  form  and  stored  in  the  solution  array.  A  test  is 
then  made  to  determine  if  the  stress  components  satisfy  the  yield  condition  If 
they  do  not  satisfy  the  yield  criteria  the  stresses  are  modified  to  force  them 
back  on  to  the  yield  surface  (3.b).  Finally,  the  CFL  stability  parameter  at 
the  mesh  point  is  evaluated.  If  the  solution  appears  to  be  going  unstable, 
ONESTP  is  called  in  an  attempt  to  obtain  a  more  stable  value.  After  all  mesh 
points  have  been  evaluated,  the  L  array  is  shifted  back  to  it  original  locations 
The  CFL  stable  stepsize  for  the  material  is  then  computed. 
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2.8  FINISH 


This  subroutine  checks  the  position  of  each  domain  relative  to  storage 
and  of  the  boundary  points  of  a  domain  relative  to  each  other.  As  a  domain 
moves  through  its  nesh  it  may  cover  satue  mesh  points  and  uncover  others. 

The  algorithm  requires  at  leant  one  line  of  exterior  mesh  points  in  all  dir¬ 
ections  at  the  start  of  a  time  step.  This  ensures  the  existence  of  mesh 
points  to  allow  the  domain  to  expand  in  any  direction.  The  boundary  is 
checked  to  see  if  any  point  on  it  has  exceeded  the  mesh.  If  the  mesh  13  ex¬ 
ceeded  in  one  direction,  the  opposite  direction  is  checked.  If  the  opposite 
direction  has  more  than  two  exterior  mesh  lines,  the  domain  is  shifted  as  far 
as  possible  in  that  direction.  This  is  done  by  shifting  nil  interior  arrays 
in  storage  and  performing  a  linear  translation  on  the  proper  0-6  coordinate. 

If  a  shift  is  not  possible,  a  flag  is  set  to  abort  the  run  at  the  end  of  the 
cycle.  A  message  is  printed  together  with  the  domain  limits  and  the  boundary 
coordinates  in  a-8  space. 

The  arc  length  of  each  boundary  segment  is  compared  with  the  length  of  that 
segment  when  it  first  contained  its  present  number  of  points.  If  the  arc  length 
more  than  doubled,  the  number  of  points  is  increased  by  fifty  percent.  All 
boundary  points  above  the  segment  are  shifted  up  to  make  room  for  the  additional 
points.  Tracer  point  and  interface  endpoint  information  that  refers  to  the 
shifted  boundary  points  is  also  adjusted.  If  the  arcsize  has  not  doubled  the 
segment  is  also  checked  for  relative  distance  between  adjacent  points.  If  the 
deviation  from  the  average  is  too  large  the  points  in  the  segment  are  redistri¬ 
buted.  The  actual  redistribution  of  points,  whether  the  total  number  remain 
the  same  or  has  been  increased,  is  performed  by  subroutine  RELABL. 

2.9  GENVAL 

Values  of  various  variables  that  depend  on  material  properties  and  mesh 
geometry  and  which  vary  from  one  material  domain  to  the  next  are  sot  by  sub¬ 
routine  GENVAL. 

2.1°  INFACE 

The  boundary  conditions  on  interfaces  are  satisfied  by  subroutine  INFACE. 
These  conditions  are  the  continuity  of  normal  velocity  and  stress  (5.c,)„  The 
local  slope  at  a  point  (z^»ri)  is  obtained  from  tan  1(1  =  (z^+^-z^_^)/ (r^^-r.^)  ■ 

The  boundary  values  obtained  from  the  interior  on  each  side  of  the  interface  are 
used  to  calculate  a  normal  and  tangential  velocity  and  a  normal  stress.  A 
weighted  average  of  the  normal  velocities  and  another  weighted  average  of  the 
normal  stresses  are  used  to  define  a  common  normal  velocity  and  a  common 
normal  stress.  The  common  normal  velocity  together  with  the  previously  calcu¬ 
lated  tangential  velocities  on  both  sides  of  the  interface  are  used  to  obtain 
the  adjusted  axial  and  radial  velocities.  The  common  normal  stress  provides  a 
condition  for  pressure  on  both  sides  of  the  interface.  Fixing  the  internal 
energy,  a  Newton- Raphson  iteration  is  used  to  solve  the  equation  of  state  for 
the  proper  density.  If  the  iteration  does  not  converge  a  message  is  printed 
and  a  flag  is  set  to  abort  the  run  at  the  end  of  the  cycle. 
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2.11  1NITAL 

All  Input  data  Is  read  In  subroutine  INITAL.  General  run  parameters 
are  read  first  and  the  Interfaces  are  defined.  If  the  run  is  a  continuation 
of  a  previous  run,  the  interface  parameters  are  overwritten  by  those  on  the 
restart  tape.  Input  is  then  read  for  each  material  domain  in  turn.  The 
domains  are  numbered  according  to  the  order  in  which  they  are  input.  The 
bounds  of  the  array  segments  associated  with  the  material  are  calculated  and 
these  segments  are  then  zeroed  out.  Non-dimensionalization  factors  are  then 
generated.  Length  is  non-dimensionalized  by  mesh  size  so  that  the  mesh  size 
is  unity.  The  scaling  factor  used  for  time  is  set  to  that  for  length  so  that 
velocity  is  non-dimensionalized  by  a  speed  of  unity)  hence  non-dimensional 
velocity  numerically  remains  the  same  as  dimensional  velocity.  The  initial 
material  density  is  used  to  non-dimensionalizc  density.  The  constants  needed 
in  the  coordinate  transformations  are  calculated  and  the  input  boundary  coordin¬ 
ates  are  transformed  to  a-8  space.  The  transformed  mesh  size  is  unity  for 
both  coordinates  so  that  the  arc  length  of  a  boundary  segment  is  an  approximate 
measure  of  the  number  of  mesh  segments  it  traverses.  Thus  setting  the  number 
of  points  in  each  boundary  segment  to  twice  its  arc  length  will  result  in 
approximately  two  boundary  points  per  meeh  segment.  Values  of  r  and  its  deri¬ 
vatives  are  calculated  for  each  radial  mesh  point  and  mid-point.  RELABL  is 
called  to  generate  the  proper  number  of  equally  spaced  boundary  points  from  the 
input  values.  These  points  are  then  set  to  their  initial  values  The  points 
where  the  boundary  crossed  the  mesh  lines  and  values  at  these  points  are  de¬ 
termined  by  calling  BPOSN  and  BVALU.  The  interior  points  are  set  to  their 
initial  values  and  IPOSN  is  called  to  determine  which  points  are  interior  and 
which  exterior  to  the  domain.  A  line  of  reflected  points  below  the  axis  of 
symmetry  is  then  set.  The  CFL  stepsize  for  the  material  is  calculated  as  is 
the  initial  arc  length  of  each  boundary  segment.  If  this  run  is  a  continuation 
of  a  previous  run,  the  initial  values  are  read  from  the  res  cart  tape.  The 
restart  domain  is  then  shifted  to  the  positions  required  by  the  first  axial 
and  radial  mesh  point  interior  to  the  domain  as  specified  by  the  input.  For  a 
restarted  problem  thore  portions  of  INITAL  that  initialize  domain  values  are 
skipped.  After  all  materials  have  been  input  and  initialized  the  time  incre¬ 
ments  for  the  various  types  of  output  are  examined.  If  the  increment  is  nega¬ 
tive  it  is  set  to  a  large  number  so  that  it  will  never  be  reached  and  its 
corresponding  type  of  output  will  never  occur.  Otherwise  the  associated  output 
subroutine  is  called  to  output  the  initial  data. 

2.12  INTRPL 

The  solution  at  mesh  points  that  were  too  near  to  the  domain  boundary, 
that  have  just  become  interior  to  the  domain  or  where  the  finite  difference 
solution  appeared  to  be  going  unstable  is  evaluated  by  interpolation  from 
neighboring  interior  and  boundary  crossing  points  in  subroutine  INTRPL.  First 
subroutine  IPOSN  is  called  to  determine  which  points  are  interior  to  the  domain. 
An  axial  mesh  line  below  the  axis  of  symmetry  is  reflected  from  the  mesh  line 
above  the  axis  of  symmetry.  The  mesh  is  then  swept  to  determine  which  points 
remain  to  be  computed  by  interpolation.  Linear  interpolation  from  adjacent 
interior  or  boundary  crossing  points  is  used.  The  four  nearest  neighbors  to 
the  mesh  point  are  examined.  Each  may  be  a  boundary  crossing  point,  an  in¬ 
terior  point  that  was  obtained  from  the  finite  difference  equations  or  an  in- 
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terior  point  that  must  he  interpolated.  These  three  poaaibilities  at  the  four 
neighbors  represent  81  possible  configurations.  Each  configuration  is  accounted 
for  and  a  point  on  either  side  the  mesh  point  is  selected,  if  possible,  for 
the  interpolation  process.  Poi  ts  that  theaiaelves  must  be  interpolated  are 
not  selected  since  they  may  not  as  yet  have  been  evaluated.  After  the  entire 
mesh  has  been  swept  the  points  that  ware  interpolated  are  redefined  as  normal 
interior  points.  A  line  of  reflected  values  is  again  generated  below  the  axis 
of  symmetry  to  account  for  any  recently  interpolated  values.  The  81  possible 
configurations  are  represented  by  the  codes  in  the  following  table.  A  0 
represents  a  boundary  crossing  pointi  a  1  represents  an  interior  point  that  was 
obtained  from  the  finite  difference  equations  and  a  2  represents  an  interior 
point  that  must  lie  interpolated.  Reading  the  numbers  from  right  to  left,  the 
digits  represent  the  point  below,  above,  to  the  left  and  to  the  right  of  the 
mesh  point.  The  points  that  were  selected  i'cr  use  in  the  interpolation  are 
underlined.  In  seme  cases  only  one  point  we  s  used.  Here  the  interpolated  values 


were 

set  directly 

to  the 

values  at 

that  pcin> 

1. 

0000 

22. 

0210 

42. 

1112 

62. 

2021^ 

2. 

0001 

23. 

0211 

43. 

1120 

63. 

2022 

3. 

0002 

24. 

0212 

44. 

1121 

64. 

2100 

4. 

0010 

25. 

0220 

45. 

1122 

65. 

2101 

5. 

oon 

26. 

0221 

46. 

1200 

66. 

2102 

6. 

0012 

27. 

0222 

47. 

1201 

67. 

2110 

7. 

0020 

28. 

1000 

48. 

1202 

68. 

2111 

8. 

0021 

29. 

1001 

49. 

1210 

69. 

21J  2 

9. 

0022 

30. 

1002 

50. 

1211 

70. 

2120 

10. 

0100 

31. 

1010 

51. 

1212 

71. 

2121 

11. 

0101 

32. 

1011 

52. 

1220 

72. 

2122 

12. 

0102 

33. 

1012 

53. 

1221 

73. 

2200 

13. 

011£ 

34. 

1020 

54. 

1222 

74. 

2201 

14. 

0111 

35. 

1C121 

55, 

2000 

75. 

2202 

15. 

0112 

36. 

1£22 

56. 

2001 

76. 

2210 

16. 

0120 

37. 

1100 

57. 

2002 

77. 

2211 

17. 

0121 

38. 

1101 

58. 

2010 

78. 

2212 

18. 

0122 

39. 

1101 

59. 

2011 

79. 

7220 

19. 

0200 

iO. 

UK 

. 

.'.12 

80. 

?221_ 

20. 

21. 

0201 

0202 

41. 

1111 

61  „ 

2020 

81. 

2222 
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2.13  IPOSN 

The  L  array,  which  specifies  whether  a  roe  eh  point  is  in  a  domain  or  not, 
is  set  in  subroutine  IPOSN.  The  crossing  points  of  the  boundary  with  the 
mesh  lines  are  used  to  determine  what  is  exterior  and  what  is  interior  to  the 
domain.  The  mesh  is  first  swept  along  the  lines  r  -  constant.  All  mesh  points 
along  such  a  line  up  to  the  first  boundary  crossing  are  outside  the  domain. 

All  points  from  the  first  crossing  to  the  second  crossing  are  inside.  The  next 
set  of  points  are  outside,  then  inside,  etc.  If  a  point  is  outside  the  domain, 

L  is  set  to  0.  If  a  mesh  point  is  inside  and  L  has  been  set  to  2  because  the 
point  could  not  be  calculated  from  the  finite  difference  equations,  it  remains 
set  at  2.  Otherwise  L  is  set  to  2-L.  Thus  for  all  exterior  points  L  is  0,  for 
all  interior  points  that  were  calculated  from  the  finite  difference  equations 
L  is  1  and  for  all  interior  points  that  have  not  yet  been  calculated  L  is  2. 
Interpolation  errors  in  obtaining  the  boundary  crossings  may  cause  a  mesh  point 
to  appear  interior  when  one  coordinate  direction  is  considered,  yet  exterior 
when  the  other  coordinate  direction  is  considered.  The  algorithms  require  a 
mesh  point  to  be  interior  no  matter  which  coordinate  direction  is  considered. 

To  allow  for  this  the  boundary  crossings  of  the  mesh  lines  z  =  constant  are  also 
considered.  The  crossings  are  followed  as  before  except  that  only  exterior 
points  need  be  considered.  L  is  set  to  0  for  these  points  so  that  L  will  be  non 
zero  only  for  those  mesh  points  which  appear  interior  no  matter  which  way  the 
mesh  is  swept.  For  the  z  «  constant  mesh  crossings  the  assumption  that  all 
mesh  points  until  the  first  crossing  are  exterior  is  valid  only  if  the  lines  are 
swept  from  above  the  domain  toward  the  axis  of  symmetry. 

2.14  MVBND 

In  this  subroutine  the  domain  boundaries  are  moved  in  time  by  using  a 
simple  Euler  integration  (5. a) .  The  coordinates  of  the  boundary  points  are  trans¬ 
formed  from  a-B  space  to  z-r  space  and  the  velocities  are  integrated  with  res¬ 
pect  to  time  to  find  the  new  boundary  positions.  These  new  positions  are  then 
in  the  z-r  coordinate  system. 

2.15  ONESTP 

The  one  step  finite  difference  equations  for  mesh  points  whose  nine  point 
solution  stencil  does  not  lie  entirely  in  the  domain  are  evaluated  in  subroutine 
ONESTP  (4.b)„  As  described  in  FDIFF,  a  code  word  is  generated  to  specify  which 
neighbors  of  the  mesh  point  are  missing.  If  this  word  is  divided  by  16  the 
result  v/ill  refer  to  the  four  outer  neighbors  while  the  remainder  refers  to  the 
four  nearest  neighbors.  First  derivatives  and  non  mixed  second  derivatives  may 
ba  approximated  to  second  order  by  using  the  two  points  on  either  side  of  the 
mesh  point  in  the  required  direction.  These  two  points  will  be  either  mesh 
points  or  boundary  crossing  points.  The  four  outer  neighbors  are  required  only 
for  approximating  the  second  mixed  partial  derivatives.  Each  of  there  outer 
points  may  be  represented  by  a  Taylor's  series  about  the  centra*  mes  i  po'nt. 
Combinations  of  these  series  will  yield  formulas  for  the  mixed  derivative  in 
terms  of  the  outer  points  and  the  first  and  non  mixed  second  derivatives  De¬ 
pending  upon  the  combinations  used,  these  formulas  may  be  first  or  second  order 
accurate.  However,  first  order  accuracy  in  the  second  space  derivatives  is  all 
that  is  required  for  the  overall  difference  scheme  to  remain  second  order 
accurate.  By  thus  splitting  the  four  outer  neighbors  from  the  four  nearest 
neighbors  the  256  possible  combinations  of  missing  points  may  be  dealt  with  by 
first  considering  the  16  possibilities  relating  to  the  four  nearest  neighbors 
and  then  the  16  possibilities  relating  to  the  four  outer  neighbors. 
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The  derivatives  are  evaluated  first  in  the  axial  and  then  in  the  radial 
direction.  In  either  case  there  are  four  possibilities  to  consider.  There 
nay  bo  nesh  points  on  both  sides,  a  mesh  point  on  either  side  and  a  boundary 
crossing  on  the  opposite  side  or  boundary  crossings  on  both  sides.  When  there 
is  a  boundary  crossing,  the  distance  to  the  boundary  ie  calculated.  If  this 
distance  is  less  than  the  allowable  distance  the  point  is  skipped  to  be  later 
evaluated  by  interpolation  in  subroutine  INTRFL.  After  the  derivatives  in 
each  direction  are  obtained  the  nixed  derivatives  are  "*valuated.  These  space 
derivatives  are  combined  into  the  expressions  appeari.iv  in  the  one  step  equations 
and  these  equations  are  computed.  The  artificial  viscosity  is  then  added.  A 
test  is  made  to  determine  if  the  stress  components  satisfy  the  yield  condition. 

If  they  do  not  satisfy  the  yield  criteria  the  stresses  are  modified  to  force 
them  back  onto  the  yield  surface  (3.b).  Finally,  the  CFL  stability  parameter  at 
the  mesh  point  is  evaluated.  If  the  solution  appears  to  be  going  unstable  it  is 
discarded  to  be  later  evaluated  by  interpolation  in  subroutine  INTRPL. 

The  following  table  will  illustrate  the  code  used  for  missing  points. 


Code 

Date  Used 

for  Derivative  Approximation 

1. 

0000 

r.se 

all  points 

2. 

0001 

use 

lower 

right  and  lower  left 

3. 

0010 

use 

lower 

right  and  upper  right 

4. 

0011 

use 

lower 

right  and  lower  left 

5. 

0100 

use 

uppe- 

left  and  upper  right 

6. 

0101 

use 

lower 

right  and  upper  left 

7. 

0110 

use 

lower 

right  and  upper  right 

8. 

0111 

use 

lower 

right 

9. 

1000 

use 

lower 

left  and  upper  left 

10. 

1001 

use 

lower 

left  and  upper  left 

11. 

1010 

U86 

lower 

left  and  upper  right 

12. 

1011 

use 

lower 

left 

13. 

1100 

use 

upper 

left  and  upper  right 

14. 

1101 

use 

upper 

left 

15. 

1110 

use 

upper 

right 

16. 

1111 

skip  and  interpolate 

A  0  represents  the  presence  of  a  point  while  a  1  means  it  is  outside  of  the  do¬ 
main.  The  codes  may  represent  the  ordering  of  the  16  possibilities  for  both 
the  four  nearest  neighbors  and  the  four  outer  neighbors.  Reading  from  right  to 
left  the  digits  represent,  for  the  nearest  neighbors,  the  points  to  the  right, 
above,  left  and  below.  For  the  four  outer  neighbors  the  order  is  upper  right, 
upper  loft,  lower  left  and  lower  right.  In  representing  the  outer  neighbors 
the  codes  are  followed  by  an  indication  of  which  of  the  points  are  used  in  eval¬ 
uating  the  mixed  derivatives. 
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2.16  OUTPUT 

______ 


This  routine  prepares  all  printed  output.  All  output  is  of  dimensioned 
variables  and  in  z-r  space.  The  output  proceeds  according  to  material  domains. 
The  boundary  points  appear  first.  If  both  IPRINT  and  JPRINT  are  not  zero,  the 
interior  mesh  points  appear  next.  They  are  numbered  along  axial  lines  with 
the  line  nearest  to  the  axis  of  symmetry  first.  Only  those  interior  points 
which  are  also  interior  to  a  box  of  size  IPRINT  times  JPRINT  are  printed.  This 
box  starts  at  the  left  boundary  if  IPRINT  is  positive  or  ends  at  the  right 
boundary  if  IPRINT  is  negative.  It  starts  at  the  bottom  boundary  if  JPRINT 
is  positive  or  ends  at  the  top  boundary  is  JPRINT  is  negative.  The  tracer 
particles  are  output  next.  Their  values  are  obtained  by  interpolation  from 
the  proper  boundary  points.  After  all  domains  have  been  printed  the  boundary 
points  that  are  interfaces  are  identified. 


2.17  PLTOUT 

Information  is  prepared  in  PLTOUT  for  processing  by  separate  plot  programs. 
The  z-r  space  boundary  coordinates,  the  tracer  particle  coordinates  and  the 
tracer  particle  velocities  are  calculated  and  then  written  out.  All  mesh 
points  which  are  in  a  plastic  region  are  then  obtained.  The  coordinates  of 
these  points  are  then  written  out  in  blocks  of  100  points. 

2.18  PRNPLT 

This  subroutine  prepares  printer  plots  of  the  domain  boundaries.  The 
boundary  points  are  transformed  to  Z-r  space  and  then  scaled  to  inches  of 
plot.  The  printer  plot  routine  PRNT  is  then  called  for  each  point  to  plot 
the  arrays. 

2.19  PRS 

PRS  is  a  function  subroutine  to  evaluate  the  equation  of  state.  If  the 
logical  variable  PDER  is  true  it  must  also  evaluate  the  partial  derivatives 
of  pressure  with  respect  to  density  and  internal  energy.  The  routine  supplied 
uses  the  Tillotson  equation  of  state  but  may  be  replaced  by  any  user  written 
routine. 


2.2°  RELABL 

The  points  defining  a  boundary  segment  are  redistributed  over  that  segment 
in  subroutine  RELABL.  The  positions  of  tracer  particles  and  interface  end 
points  are  also  redefined  in  relation  to  the  new  boundary  poir  .s.  The  point 
coordinates  and  function  values  are  considered  to  be  functions  of  arc  length 
along  the  boundary.  The  total  arc  length  is  divided  into  evenly  spaced  intervals 
by  the  number  of  points  in  the  new  set.  At  the  end  points  of  the  evenly  spaced 
intervals,  new  point  coordinates  and  function  values  are  interpolated  from 
the  old  coordinates  and  values.  The  arc  length  value  at  a  tracer  particle  is 
also  used  to  find  the  exact  new  interval  in  which  that  particle  lies  and  its 
relative  position  in  that  interval  is  then  calculated.  The  new  boundary 
points  which  define  interface  endpoints  will  be  those  points  bounding  the 
largest  segment  wholly  contained  in  the  old  interface  segment. 
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2.21  SAVE 

Information  needed  to  continue  the  calculation  in  a  aubsequent  run  is  output 
by  subroutine  SAVE.  Before  being  output,  all  domains  are  shifted  as  far  to  the 
left  and  bottom  as  possible.  Only  those  mesh  points  interior  to  the  smallest 
mesh  rectangle  containing  the  domain  are  then  output.  This  allows  for  the 
possibility  of  the  restarted  problem  being  run  using  smaller  arrays  and  less 
computer  memory. 
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GENERAL  PROGRAM  DESCRIPTION 


3.1  Flow  Chart 
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ZONES  ADJINT,  BONDRY ,  DENSB,  FINISH,  GENVAL,  INFACE,  INITAL,  PLTOUT,  PRNPLT 


3.4  Storage  Arrangement 


The  number  o f  neah  point*  in  each  coordinate  direction  and  the  number  of 
boundary  point*  may  vary  from  run  to  run  and  front  material  to  material.  In 
order  to  efficiently  utilize  computer  memory  the  storage  array*  have  no  fixed 
dimensions  for  these  quantities.  All  materials  are  stored  consecutively.  The 
area  reserved  for  each  material  is  computed  from  input  parameters.  The  index 
of  any  point  in  a  material  is  computed  relative  to  a  reference  value  for  that 
material.  If  K S  is  the  reference  value  for  a  material  then  the  point  in  that 
material  with  index  X  would  be  raferred  to  in  the  array  with  index  KS+K.  The 
axial  arrays  are  those  in  common  BNDCRS  whose  name  contains  J.  and  their  reference 
is  IS.  The  radial  arrays  are  those  in  common  BNDCRS  whose  name  contains  J  and 
all  arrays  in  common  MSHFCN.  The  radial  reference  is  JS.  The  first  dimension 
of  these  arrays  controls  the  maximum  number  of  points  for  all  materials  and  the 
second  dimension  controls  the  maximum  number  of  boundary  crossings  in  these 
directions.  Thus,  if  IMAX  and  JMAX  are  the  axial  and  radial  dimensions,  respect¬ 
ively,  and  for  each  material  the  maximun  number  of  axial  points  is  NI  and  the 
maximum  number  of  radial  points  is  NJ,  than  the  requirement  is 

INI  <_  IMAX  I  (NJ+1)  <_  JMAX 

where  the  summation  is  over  all  materials.  The  addition  of  1  to  the  NJ  is  to 
take  account  of  the  reflected  line  of  'lata  points  below  the  axis  of  nynmetry. 

The  arrays  for  interior  mesh  points  are  in  blank  comaon  and  have  reference  IJS. 

A  mesh  point  of  axial  index  I  and  radial  index  J  is  referred  to  in  the  arrays 
with  the  single  index  IJS  +  (J-l)  (NI+2)  +  I.  If  the  array  dimension  is  UMAX 
then  the  requirement  on  the  materials  is 

I  (NI+2)  (NJ+1)  <_  UMAX 

The  2  that  is  added  to  NI  allows  for  shifting  as  stated  in  the  description  of 
subroutine  FDIFF .  The  boundary  arrays  are  in  common  BWDVAL  and  have  reference 
IBS.  For  dimensions  BMAX  and  maximum  per  material  of  NB  the  storage  require¬ 
ment  is  again 

ENB  <_  BMAX 

Temporary  arrays  for  boundary  points  that  are  used  separately  for  each  material 
are  in  common  SCOTCH.  The  storage  requirement  hare  is  just  that  the  maximum 
number  of  boundary  points  for  any  material  be  less  than  the  array  dimension. 

The  maximum  number  of  materials  is  the  first  dimension  of  the  arrays  in  common 
ZONES,  the  second  dimension  in  MATARR,  the  first  dimension  in  TRCPRT  and  the 
second  dimensions  of  the  array  NONIN  in  common  INTFC.  The  maximum  number  of  tracer 
particles  per  material  is  the  second  dimension  of  the  arrays  in  common  TRCPRT. 

The  maximum  number  of  interfaces  is  controlled  by  the  array  INFC  in  common  INTFC 
which  has  six  entries  per  interface  while  the  maximum  number  of  interfaces  one 
material  may  have  with  all  other  materials  is  controlled  by  the  first  dimension 
of  NONIN.  NONIN  must  have  storage  for  two  entries  per  interface  plus  one 
additional  entry  to  signal  the  last  interface  for  the  material. 
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COMMON  DEFINITION 
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TRC  RT  Index  of  boundary  segment  containing  tracer  particle 
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Maximum  number  of  radial  mesh  points 
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Real  computation  time  at  start  of  first  cycle 
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IV 


PROGRAM  USAGE 


4,1  Input 

There  are  three  types  of  Input  data,  Integer  (I),  real  (R)  and  alpha¬ 
numeric  (A) .  An  integer  iB  a  number  without  a  decimal  point  which  must  be 
right  justified  in  its  field.  A  real  number  has  a  decimal  point  which  may  be 
followed  by  an  exponent  of  the  form  E+N.  The  +N  represents  the  power  of  10  by 
which  the  number  is  to  be  multiplied.  The  +  may  be  omitted  if  N  is  positive 
and  the  E  need  not  appear  if  either  the  +  or  -  is  present.  If  an  exponent  is 
present  it  must  be  right  justified  in  the  field.  Alphanumeric  input  consists  of 
exactly  the  punched  characters  and  blanks  appearing  in  the  field.  A  description 
of  the  necessary  input  data  for  SMITE  follows.  The  card  number  refers  to  the 
type  of  input.  If  more  than  one  card  is  necessary  for  this  input,  there  may  be 
several  cards  of  the  same  type  number.  A  number  in  parenthesis  indicates  an 


optional  card 


TITLE  Any  alphanumeric  information  to  be  printed  at  the  beginning  of  the  output 
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56-60  I  INFC(12) 


_ _ _ DESCRIPTION _ 

The  set  of  cards  containing  the  input  parameters  for  the  individual  materials 
follows.  This  entire  set  is  repeated  for  each  material  until  all  materials 
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following  card  is  optional  to  input  the  Tillotson  equation  of  state 
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4.2  Sample  Input 


Complete  listings  of  the  input  decks  for  the  two  Silver  Bullet  compu¬ 
tations  (without  and  with  a  sheath)  (6.0)  appear  on  the  following  pages.  In 
addition,  listings  of  sample  input  decks  for  the  following  five  geometric  and 
material  combinations  are  given.  These  five  cases  have  not  actually  been 
run.  They  are  presented  only  as  illustrations  of  various  possible  input  con¬ 
figurations. 

Case  1.  A  blunt  truncated  mild  steel  rod  (1020)  impacting  a  0.635  cm 
(1/4")  aluminum  target  at  a  striking  velocity  of  .371  km/sec 
(1220  ft/sec). 

Case  2.  A  Bearcat  rod  with  a  hemispherical  nose  impacting  a  1.27  cm 
(1/2")  aluminum  target  at  a  striking  velocity  of  .343  km/sec 
(1125  ft/sec). 

Case  3.  A  hollow  Bearcat  cylinder  impacting  a  1.905  cm  (3/4"  aluminum 
target  at  a  striking  velocity  of  1.22  km/sec  (4000  ft/sec). 

Case  4.  An  ogival  projectile  with  an  aluminum  core  and  a  tungsten 
carbide  sheath  impacting  a  2.54  cm  (1")  target  of  rolled 
homogeneous  armor  at  a  striking  velocity  of  1.372  km/sec 
(4500  ft/sec) . 

Case  5.  A  hemispherical  cap  projectile  with  a  tungsten  alloy  core 
and  a  maraging-300  steel  sheath  impacting  a  .9525  cm  (3/8") 
target  of  rolled  homogeneous  armor  at  a  striking  velocity  of 
1.524  km/sec  (5000  ft/sec). 

Target-projectile  configurations  are  shown  for  each  case. 

Sketches  are  not  to  scale  and  all  dimensions  are  in  centimeters. 
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4.3  Diagnostics 


TOO  MANY  POINTS  ON  INTERFACE  OF  MATERIAL  XX  WITH  MATERIAL  XX  - 
In  subroutine  ADJINT  when  attempting  to  replace  the  interface  boundary  points 
of  material  2  with  those  of  material  1,  the  material  2  boundary  would  exceed 
it's  maximum  allowable  size.  Rerun  allowing  for  more  points  on  material  two 
boundary. 

AT  POINT  (XX, XX)  IN  FDIFF  AT  T-XX. XX XXX  STAB-XX . XXXXX  MAT-XX  - 
Solution  may  be  going  unstable  at  this  point.  If  it  does  not  correct  itself 
try  larger  artificial  viscosity  coefficient. 

AT  POINT  (XX, XX)  IMAGINARY  SOUND  SPEED  IN  FDIFF  MAT=XX  ESY-XX. XXXXX 
T=XX. XXXXX  -  Solution  unstable  at  this  point  and  will  be  recomputed  in  ONESTP. 

If  it  does  not  correct  itself  try  larger  artificial  viscosity  coefficient. 

AT  POINT  (XX, XX)  IN  ONESTP  AT  T-XX. XXXXX  IPOINT-XX  STAB-XX. XXXX  RHO-XX.XXXX 
U-XX.XXXX  V=XX.XXXX  DELA-XX . XXXX  DELB-XX.XXXX  B  SUB  R» XX. XXXX  MAT-XX  - 
Solution  may  be  going  unstable  at  this  point.  If  it  does  not  correct  itself 
try  larger  artificial  viscosity  coefficient. 

AT  POINT  (XX, XX)  IMAGINARY  SOUND  SPEED  IN  ONESTP  RHO-XX . XXXXX  U= XX. XXXXX 
V=XX. XXXXX  T=XX. XXXXX  MAT=XX  -  Solution  unstable  at  this  point  and  will  be  re¬ 
computed  by  interpolation.  If  it  does  not  correct  itself  try  larger  artificial 
viscosity  coefficient. 

AT  T-XX. XXXXX  DENSITY  DOES  NOT  CONVERGE  ON  MATERIAL  X  BOUNDARY  AT  POINT  XX  - 
In  subroutine  DENSB  or  subroutine  INFACE  iteration  for  density  to  obtain  pressure 
that  satisfies  proper  normal  stress  boundary  condition  does  not  converge.  This 
is  usually  a  sign  of  an  instability  in  the  solution. 

MATERIAL  X  BOUNDARY  EXCEEDS  DOMAIN  -  RUN  ABORTED  (ZMAX,RMAX)  /  (Z  (I)  ,R(I) )  - 
A  shift  was  attempted  in  subroutine  FINISH  but  there  was  no  room.  The  boundary 
coordinates  are  printed  in  a-3  space.  The  minimum  is  zero  and  the  maximum 
is  the  printed  value.  Rerun  allowing  more  points  in  the  proper  coordinate 
direction. 

AT  X=XX  MATERIAL  X  BOUNDARY  CROSSED  MORE  THAN  X  TIMES  T-XX. XXXXX  -  The 
boundary  crossed  a  mesh  line  more  than  the  maximum  number  of  times  allowed  in 
subroutine  BPOSN.  The  boundary  points  should  be  examined  to  see  if  this  indi¬ 
cates  an  instability  or  if  more  crossings  should  ba  allowed. 
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4.4  Sample  Output 

A  sample  of  the  output  for  the  two  Silver  Bullet  nine  (6.0)  follows. 
The  input  data  for  all  materials  appears  first.  Printer  plot  and  printed 
output  at  each  selected  time  interval  will  appear  next.  The  printed  output 
is  described  in  the  writeup  for  subroutine  OUTPUT  in  Section  2.  A  listing 
*  the  complete  output  for  the  two  problems  at  time  t»0  is  given. 
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PROGRAM  Sm I T6 ( INPUT, OUTPUT, TAPEl# TAPE2, TAPE5  ■  INPUT, TAPE6  a  PUTPuSmJTE  ? 
IT)  S’MTE  3 

COMMON  /COMVAL/  KTjAKT^T.LTMlN.lTERjNEIBP.IPOlNT.EPR.EPS.EPSl.RDlCAMVAL  2 


lS,TOP,DAL,KHAX,POR&,PSCL,Lfe,LF 

ClKVAt  3 

COMMON  /MaTaRR/  NMAT,  IM*T(1?,5),FMAT(23,5),MAT 

•IaTARP  2 

COMMON  /TVALS/  ISTa9T,TMAX,TPR1MiTFRPl,TP10T,T5aVF,TC'V'P»TZ 

TvalS 

? 

LOGICAL  ERR 

shite 

7 

call  inital 

SI'ITE 

9 

TPRN  *  AKT*TPRJN 

SM I  TE 

9 

TPRT  a  AKT*TPRPL 

smite 

10 

TPlT  ■  akt*tplot 

S>  I  TE 

11 

TSVE  ■  AKT*TSAVE 

S  <[TE 

1? 

10 

AT  ■  KT*1 

SMTE 

13 

DT  •  1.0E6 

smite 

14 

DO  20  MAT  ■  i.rJMAT 

S" I  TE 

15 

IF  (FMAT(?2,MAT)  ,r.b,I  T)  gh  TO  20 

S  “  1  T  h 

16 

UT  ■  FMAT(22,MAT) 

S’-  I  Tfc 

17 

MT  ■  MAT 

smite 

19 

20 

continue 

Su  1  T  c 

1« 

IF  (UT.GT.DTMIN)  GC  TO  30 

S’M  Tt 

20 

ZZ  «  FL0AT(U1AT<tt.m-l>*H''AT(l,MT) 

3"  1  T  fc 

21 

RR  a  FLOAT! IMAT(V,MT)-2>*HlAT(2,MT) 

SMITE 

22 

«R  IVE  <6,120)  AKT,MT,ZZ,RW,PT 

S-MTE 

23 

GO  TO  100 

S  '  I  TE 

24 

30 

AKT  «  AKT*DT 

S  '  I  TE 

25 

CALL  MVBNC 

SMTE 

26 

call  adjint 

SM  r  = 

27 

call  bondry 

S- 1  Tfc 

29 

call  DENSE) 

S“  I  Te 

29 

DO  40  MAT  *  l.MMAT 

S"  I  TE 

30 

call  genval 

s-ite 

31 

call  fdiff 

smte 

32 

call  finish 

S“  I  TE 

33 

call  rposn 

S  MTfc 

34 

call  BVALu 

smte 

35 

call  inthpl 

smite 

36 

40 

CONTINUE 

smte 

37 

IF  (ERR)  GO  TP  10G 

s-.ite 

39 

CALL  SECOND  (T) 

s»  ite 

39 

IF  (T.GF.TCOMP.OR.AKT.GE.TeaX)  GO  to  90 

Sm  J  TE 

40 

IF  (AKT.LT, TPRT)  r,C  Tn  6Q 

S*M  TE 

41 

call  PRNPLT 

smte 

42 

TPRT  a  TPRT *TPRPL 

SfpE 

43 

50 

IF  ( AKT.LT.TPLT)  GC  TP  6C 

CALL  PLTOUT 

s-mte 

44 

smite 

45 

TPlT  a  TPlT*TPLOT 

smte 

46 

60 

IF  ( AKT.LT ,TPPN)  GC  TO  70 

CALL  OUTPuT 

smjte 

47 

S‘MTt 

49 

TPRN  a  TPRN*TPR|N 

S’  J  Tfc 

49 

TO 

IF  (AKT.LT, TSVE)  GC  TP  «0 

S’  ITE 

50 

CALL  save 

S’  ITE 

5- 

TSVE  ■  TSVE*TSAVE 

smte 

52 

ao 

GO  TO  10 

SMTE 

53 

90 

IF  (TSVE.LT.1.0EB)  call  save 

SMTE 

54 

100 

IF  (TPLT.GE.1.0FB)  (.0  TO  110 

SmJTE 

55 

CALL  PLTOUT 

smte 

56 

93 


Preceding  page  blank 


•m 


•No  file  ? 

no  jr  (TPRT.uT.l.OfB)  CALI.  RHNPL T 
If  <TPRN.lT,1.0E»)  CALI  OUTPUT 
STOP 

120  fORHAT  (6M0AT  T.F«,:<#?7H  STEP  TOO  SHALL  IN  MaTsH  I  AL 1 2 , 16H 
i  <z.R>»2En.4.5x3Hr»en,4) 
fcND 


AT 


SM|Tfc 

57 

S  1 1  T  t 

5A 

S'MTfc 

59 

Sm[TE 

60 

S*'  I  TE 

61 

P01NTSm|TE 

69 

5  M  Tfc 

67 

S“  1  TE 

64 

h 
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r.ljfjr 


SldPOuTINE  INITAL 
CCmmqn//  w(2200.'/).L(?2C0  ) 

CChhon/rnocRS/  WB! (1 09, A. 7). PH  I (109, e  ),  IMldC0,’), 
lWb 78,8, 7),PPj< 7B, 4), JND(7fl,9) 

common  /bndval/  -<R(AOo,7),rBX<'.ooJ*rpr(6PO)»rRSt6co> 


IMTAL  7 
InTvAL  / 
bt  un  s  r 

BMJCHS  : 
BNDvAL  t 


COMMON  /ZONES/  NBPG«5t3).NrNr<5»3)*AFCSIZ<5»3>#IM^HAX«5'.3)#C!SMlN<ZrMFb 
15, 3)  ZCNFS 

CCMMon/mshfCn/  Y(78),DYf78>,DYA(7«),FSV(78>,VSF.(7P),F«YA{78»,  HRHFCn  / 

lYStA(7a)ieSYE(7B),E!3F<78),A^V(78),AVV(7e>,AS7A(7A)  MRHFCN  3 

COMMON  /MATARP/  NMAT,IMAT(12,5),FMAT«23,r),HAT  maTaRR  ? 

CCmmon/SCWTCH/  TWn(^C0,7),TrOx(300),,FRY(300)  SCHTO  7 

Ccmm0n  /MATVAL/  AX, AY.CFL.Vt*;. V!ST,Mt,YC,PHO,XO,pn,TO.XZ, A  ,  R ,  AhL » PM AT V AL  a 
1  AFu,  CHAN,  HMAX.F  ACT,  *Ntt,AF,SP',,AL,*S,AK,MAL,HA^,HAf,0AL,'3AS,  OAK,  DAXMATVAL  3 
2.CAY ,HU*A,HPAv,nAX2*DAY7,HDAXV,0DAyY,DTR,HALF''U,T,TrML,rPTrML,00VMMATVAL  - 
10.  I  PfcOTM,N[  ,NJ,NF"A*»  IS.JS.IJC .IBS,  I  SR  ,  JSP ,  N  t  "1 ,  tl  JM1  ,  *  D".  NRl  .  NF  ,  NR  1  M  a  1  >'  A !.  *- 

4,\N  , N 1 P2, NTR  MAfVAL  R 

common  /PRESS/  PDFR.PW.PE.HA’I'O  PPtSS  '< 

COMMON  /tUSTP/  API  ,iO),RPL<i:  t.APRIir  ),RPP(iC>,*LFH(in).PFTAM0),FtnS1R  7 
lSClP),bZfcH0aP>.ESPRM(10).PH*'7RO<lC),PHIM10)  tr.'jTR  3 

COMMON  /TRCPRT/  NTRS(5),  I  TP < T . 25 > » TRF < 5 , 25 >  TPCPRT  , 

CCmmon  /COMVAl/  KT.aKT.OT.DT  ”N,1TEP,NFIFR, trniNT.EPR.EPS.EPSl.PDICQMVAL 


IS. 1 np . 0 al » KM AX , P0RG , PSCL . LT  L- 
COMMON  /TVALS/  ISTapT.TmaX. .O’  IN,7PRFL,TPL0T,TRAVF,TCrM».TZ 
COMMON  /  I  NTPC  MNFC,  !NFC(6tn  ,NONirt20,B) 

DIMENSION  TJTlECPni.  AMA  T ( 2l ) 

ECuIvalENCE  (aMAT.ax) 

EColVALFNCE(Y7,T0) 

REAL  MO 

LCOlCAL  PDER.FRR 

DA  i  a  KT,  AKT,CT,ERR/fl.r  ,  0,0.0,  .FALSE,/ 

DA  i  A  Pi ,  AX,  AY,  BD  IS,  MAL,'- PS.  EPSl.KHAX/S,  14 1592653, 1,3,1 ,  0 « *!  ,?5,n  ,25 
1,0.00001,0 .0  001,7/ 

ETa(Y)  ■  BMax-ALOG(  (B*A-V)/<r-A*Y)  )*At»L 

A  L  m  (  X  ,  Y  )  «  FACT»(X-AN(.*Y«TOP»ATAN{AF*Y)  ) 

CALL  SEOUND  <TZ) 

REaD  <5. 420)  T[Tlf 
wR I TE  (6,430)  TITLE 

read  (5.410)  tMAX,TbRIN,TpRpL.TpLUT,tSAVF,TCC,’p,p')RC,pS“L 

RE  a  [i  (5, 410)  PHIS 

REAP  (5,390)  NMAT, ISTART 

READ  (5.400  )  ■.  INF- 

Nl  ,6  a  6 • N I N F f 

READ  (5.400)  (  I  NFc  (  T  ) ,  I  ■  1.MN8) 

DT  MN  *  1  ,  0  E  6 

IF  (  ISTAHT.EO  0)  GO  TO  1C 
REMIND  1 

READ  (1)  KT.AKT.DTmin 

READ  ( i )  N I  NFC, N I \6 » ( I  NFC ( ! ) » I  •  l.N’Nft) 

10  DC  330  MAT  a  J,N**AT 


CDMVAL 
tvalS  :■ 
I  ►  T  F  C  7 
1 ! .  1  T  A  L 1  ’/ 
IMTAL1E 
OF  AX  1 
1  N  I  T  A  L 1 R 
IMTALZf 
I " I tal23 
I N i TAL2? 
IN  I TAL23 
In 1TAL?< 
I- ITAL2T 
IMTAL26 
I N 1 T  a  L  2  7 
IMTAL2E 
IMTAL29 
I’.ITALJl 
IMTAL31 
I  I  T  A  L  3  / 
I  N  I  T  A  L  J  3 

I  ,  I  T  A  L  3  a 

I ‘  I  T A L 3^> 
I‘  ITAL3Y- 
I M  T  A  L  3  7 
IN ITA13* 

I  .  1  T  A  L  3  V 
I  ■:  I  T  A  L  4  ( 


RE  AD  (5, 190)  M.NJ.  IF.IL,  JF.JL.NLF.t.Tr.NPT.NF-AX.NTR.MATNC.  I  PR  I  NT,  OFAX 
1 JPm I nt  OF  A  y 

READ  (5.410)  ZLEN. YMAX.TMETA, CAP, D,  VIS, VIST, CFL  *  >  T 

READ  (5.410)  My, yc.PHO.UI  I‘*T 

IF  (MATNJ.GT.C  )  GO  TD  20  !“•  IT 

MA  i  N 0  a  -maTnP  I  N  I  t 

REaD  (5,410)  APLluATNP)  ,0PL("ATNO)  ,  ATP  (  “A  TNO )  ,  BFP  t  MA  TN  D  )  ,  ALPMM  aTMM  T 


OF  IX 

1  M  T  A  L  4  3 
I*  I  T  A  L  4  A 
I  *.  1  TAL45 
I  N  I  T  A  L  4  6 
1MTAL47 
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10)  .f-feTAIriATNC)  ,ES(M*T‘I0» ,  E ZFPO ( H* TNO  ) ,  ESFRH<  M ATNO ) , FM |N(  MaTNCi  > 
HKJZRO(MaTNO)  ■  RwO 
20  CONTINUE 

WRITE  (6*  440  )  MAT.NJ.NJ,  I F ,  I L ,  JL »  ZLE*  .  vm**,  tmeta,  CAP ,  n.  V  I  S»  v  I  ST, 
11|MU,YC.RH0,U! 

DC  JO  l  ■  1.7 
30  JW*T( 1 1  MAT  )  a  0 
DC  40  M  ■  1 , MAT 


IWAT ( 4  *  MAT )  ■  IMAT(4,«AT)*lMAY(lJM) 

IMA1(5.MAT)  a  JMAT(4."AT)*!MAT(2,M) 
IMAT(6*MaT)  ■  JMAT<  A » t'A  T  )  *  (  I  "AT  ( 1 .  M  )  *  2  >  *  !  HA  T  C 
40  IWAT(7,MAT)  ■  IMAT(7,MAT).IMAT(3.M) 
|MAT(1,MAT)  ■  M 
N„=NJ*1 

IWaT<2,MAT)bNJ 
1Ma1(3|MaT)  ■  SF“AX 
IMAT(10.m*T)  *  MATND 
I  MAT ( 11 . MAT  )  a  1»R|AT 
IMaT(12.mAT)  »  JPRIM 
NIP*  «  Nl*2 
IS  *  !MaT(4,MAT) 

JS  »  I  MAT ( 5| MAT) 

Iwb  ■  IMaT(6,)'aT> 

I  H  s  •  IWAT(7,MAT> 

DC  60  J  a  1,NJ 
JusUS4(J-1)«MP2 
DC  #0  I  ■  liM 
I  V  S  J  J  4  I 

DC  50  **  •  IfMMAX 
50  W(  I  J,KtU  «  0  ,f 
60  L<  i  J)  ■  0 

DC  70  I  a  l.NFfAX 
FR  X  ( IBS* I  )  ■  C  i  0 
FRY ( JBS*I >  ■  1,0 
FRSUBSM)  •  (.0 
DC  70  K K  «  l.XMAX 
70  WE  l I  dS*  I ,XK)  *  0,0 

XO  a  ZLFN/FLOAT( II  -  !  T  *1 j 
TO  «  XU 
UO  «  Xfl/TO 

PO  “  Rh  o • U  0  *  *  2 
FACT  a  i.O/XO 
ML  *  MLI/PO 
re  »  VC/PO 
TC  a  (  V C  •  •  2  )  /  J  • 
l  T  j.a  I  RS*l 
IT«!«IRS*XLF 

READ  (5,410)  (FRX{  H,FRT(  D.IalTl.lTZ) 
wR|Tk(6.450)  (FOX(I),FRV(I),;aITl,ITr) 

Ml  •  NLF 
f(2  *  NLF  •  N  T  P  •  1 
lTlaIB5*Ni 
I T  I RS*N2 

READ  (5.410)  (FRX ( J)  ,TRY( I) , lalTl, ITT  ) 

WR I T  t ( 6» 460  )  <FRX(  I  >,f Rv< I ) , JalTl. IT“ » 

Ml  »  N2 


JN1TAL46 
I N I T  AL  4  9 

INITAL5P 
CFIN1TAL51 
INITAL5V 
I M I T AL5 J 
IMTAL54 
IMTAL5‘ 
It  ITAL56 
I  *1 1 T  AL5  7 
I  M  T  A  L  5 11 

IMTALS* 
INITAL60 
IMITAL61 
I  J I  T  A  L  6  ^ 

I  *'  I  T  AL  6  < 

I  MTAL64 
l  M  TALo5 
I Kt  1  T  A  L  6  6 

I  VITAL*? 

I  V1TAL65 
l  V  I  T  A  L  6  9 
IMTAL7D 
I “ 1 T  AL  7 1 
IMTAL72 
1 1;  I  T  AL  7  x 
I  VITAL  74 

1  *'  I  T AL 75 
l  V  I T  A  L  7  A 

I  VITAL  7 7 
I  IITAL7* 
JMTAL79 
IMTAL60 
IVlTALH) 
IN1TALB2 
1‘llTALD? 

I‘ ITAL84 
1  *.  I  T  AL  H5 
I M  T AL 86 
IM  TAL87 
IMTAL86 
IMTAL89 
1MTAL90 
I  'J  I  T  A  L  9 1 
IMTAL9? 
IMTCl  1 
IMTC1  2 
lVlTCl  J 
I  N I  TCI  4 
I 1 T  A 1. 9  5 
I  t)l  TA1.9  6 
I V l TCI  5 
IMTC1  6 
IM  TCI  7 
I’JITCI  6 

I  V  I T  AL  99 


N2  »  N2+NRT-1 
1  Tl»  1R5*N1 
IT^«IBS*N2 

read  (5,410)  <FRX<1),FRY(I),1«1T1, JT2> 

HR  1  Tfc  { 6#  470  )  <FPX(n,FRV(I)tI»in,irr) 
read  (5,390)  € ITR€M*T»  I  )•!  »  l.HTR) 

DC  80  I  ■  1,NTR 
TRb(l1AT.|>  ■  0,0 
J  =  |  TR<  HAT ,  I  ) 

TFrtXU)  ■  FRX  <  I  PS*  J ) 

TF H  Y (  [  )  ■  FRY  <  I  8S* J) 

IF  (J.NF.N2)  GO  TO  40 
ITkIMAT, 1 )  ■  J-l 
TH b ( MAT  ,  | )  ■  1,0 
80  CCnTJNUF 

wfilTfc  <6,480)  <I,TFBX(I),TFRY<I),I  *  1 « MTR) 

IF  (ISTahT.kO.O)  GO  to  )00 

read  (1)  <NBEG(MAT,  I  )  #  NFND  <  MAT  #  I )  ,ARrSlZ(MAT, I )  •  I  ■  l,3l,y?,MI,MJ 
INF  #  Y  2 
I T 1*  J  Rb*l 
,"2*1 rs*nF 

Hr AD(1 )  < (WB( I ,KK) ,KK»1,KMAX)  ,FRS< I > , I ■ ITl, IT2) , (FRX < I ) .TRY  (  I  )  , 
II* I Tl, JT2>,DTM 

rEaC  (1)  NTR,  (  I  TR  ( MAT,  I  )#TPS(f,AT»  t  ),  t  ■  1 «  NTC ) 

IO  «  I F *  1 

12  ■  MI ♦ 1 DF 

JCF  *JF-1 

J2*Mj.jdF 

DC  85  J= JF , J2 

JJ*I JS*< J-1)*NJP2 

IU«JJ*IF 

i t  /■  j  j*  i  2 

85  REaD(1 )  ((W(I,KK),KK*«,THAX),l.(I)»!*ITl,tT2) 

NC  «  NfcNU  <  MAT , 1 ) 

NE  «  NfcND I M A  T , 2  ) 

ZDF  ■  Fu04T< I DF  >  * ax 
XZ  «  XZ*ZDF 
RCe«FLOAT(JDF)«AY 
YZsYZ*RDF 
DO  90  l  s  1 ,  NF 
fry  <  mb* l >«FRY<  I  as* 1 ) ♦RDF 
90  FRX ( IBS* I I  ■  Fpx (  IBS* I )»ZDF 
ion  continue 

TRtT  «  THETA*PI/180. 

BMaX«FLOAT( JL-JFa) ) 

YO  «  YMAX/(BMAX-0,5) 

AKU  «  l./TAMTHET) 

CFL*CFL*XO 
AF  «  1,0/CAP 
TCH  ■  2. /PI 
A  s  Y0*BMAX 
B  *  A/U.-D/A) 

APL  »  dMAX/ALOGI  <R*A)/(P*A) ) 

DAUL  '  1 , / ( 2 . *B* *BL ) 

CHAN  •  < (B*A)/(P*A))**(1,0/RNAX) 

JF< ISTART.NF.O)  GO  TC  115 


I  N  I  T  A 1  0  0 
IMITC1  ' 
iNlTCll'1 
uiTciii 
I N  I  T  C 1 1  ? 
INITA10  5 
IMTAlfil 
I  N I T  A1 0  5 
iMjTAlOe 
I N I  T  A  3  0  7 
IMITA10'* 
IMTA1U'5 
IN1TA11  ) 
rJlTAlll 
I  N  I  T  A 1 1 2 
INITAII 5 
I  N  l  T  A 1 1 4 
I  ‘J  I  T  A 1 1 5 
OFAX  3 
1N1TCU3 
JMITC114 
I  N I  T  C  3 1 5 
INITCH6 
INITAIIR 
I  N  I  T  A 1  2  0 
I  M  T  A 1 2 1 
OFAX  3 
OFAX  6 
OFAX  7 
IN1TC113 
INITC119 
INITC120 
1  M  1  T  C 1 2  i 
I  M 1 T  A 1 24 
I Nl T A12S 
I N I T  A126 
I N I  T  A 1 2  7 
OFAX  8 
OFAX  9 
I  N I  T  A 1  2  8 
OFAX  10 
INITA129 
I  »■  I  TA13U 
IN1TA131 
OFAX  11 
I N  I  T  A 1 3  3 

1  (J  1  T  A 1 3  4 

OFAX  12 
PJTA136 
1NITA137 
I  N I T  A 1 38 
INITA139 
I  M  I  T  A 1 4  ( 
IN1TA143 
INITA142 
I  N  I  T  A 1 4  3 
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I* IN  •  1.0E10 
RMlNaZMlN 


DC  109 

zz  •  frxcibs*!) 


RH  *  FRY ( IBS*  ! ) 

ZMN  •  AM  I N1 < ZM I N, Z7 ) 

HMNaAMINKRMlN.RRJ 
FRx ( 1 BS*  J )  ■  AtP(ZZ.RR) 

105  FRY ( IRS*  J )  ■  ETA ( RR ) 

XZ  ■  <FL0AT(IF)-1,5)*AX-FACT*ZM!N 
FRX(IBb*l>  ■  FRX < IBS*1 >  >X' 

YZs«FL0ATCJF)-lt5)*AY-E7A'RMl'|) 

IFlJF.bO.l)  YZaO.O 
FRY(  IPS*D»FRY{!BS*1  )  *YZ 
DC  110  I *2. N2 

FRX( IBS* | )  a  FRX ( 1 B5* I ) *XZ 
FRY(  JBS*1  >»FRYUBS*I  >*YZ 

110  FRa<lRS*U  ■  FRS ( I BS* I *1  )*Sf)rT< (FRY ( 1 BS* I ) -FR Y ( I  85*  ! -1 )  >**2* 
1<FKX(  IBS* I) -FRX < IBS* I -!))••?> 

NO  ■  2,0*FRS(I8S*nlf)*1,5 

N1  »  NLF*NTP-1 

NE  ■  2.0*FRS<  IBS*M»*1,5 

NF  ■  ?  |  0  *FRS  (  I3S*N2»*1,5 

NEtQ<PAT.l>  a  1 

NficG ( ma T , 2 )  «  \D 

NBfcG ( MA T i 3 )  ■  NE 

NEND(MAT,1>  «  \D 

NEr\D  ( MAT ,  2 )  ■  NE 

NEnD(  MAT  f  3)  *  NF 

115  CONTINUE 

DO  120  I  ■  1.21 

120  FMaT(I,maT)  *  AMAT(T) 

FMATI22.MAT)  *  1,0 
NTNS(MAT)  ■  NTR 
CALL  GfcNVAL 
DC  130  J  *  2 » N J 
AJ*AY*FLOAT( J*2)*v2 
CH  ■  CM AN** ( BMAX* A J ) 

Y(JS*J)  *  A-B*(CH-1.)/<CH*1.) 

YSt ( JS*  J )  ■  FACT*(B**2*(A-Y(JS*J> )**?>*DAnL 
ESY ( JS*  J )  *  1 i/YSE  <  JS*J> 


AFy  a  AF*Y<JS*J) 
AF Y 2  a  Ah Y**2 


AS  Y  (  JS*  J )  »  ANG*T0P»(ATAN'(AFv)*AF  Y/(l ,  *  A  T  Y2  )  J 

AYY ( JS* J )  a  X0*2 , *ANQ*T0P*AF*YSE( JS*J )*(  1 • - AFY2/ ( 1 , • AFY2) ) /( 1 • 


ESYEl  JS*J)  a  -2,*DARL*<A-Y(JS*J>>*ESY(JS*J> 
EIUF ( JS*J)  a  SQRT<ASY< JS*J)**?*1,  I 
IF  <J,UT,2)  DY<JS*J)  ■  XO*Ysr«JS*J)/Y<JS*J> 
IF  (J,fcQ,2>  DY(JS*J)  a  1. 

130  CONTINUE 

Y ( US*1 )  a  -Y(JS*3) 

YSfc( JS*1 )  a  YSE(JS*3) 

ESY  <  JS*1 )  a  1 , /YSE  <  JS*1 ) 

AS Y ( JS* 1 )  a  -ASY ( JS*3 ) 

DYIJS*!)  ■  -DY(JS*3> 


IMTA144 
OFAX  13 
JNITA145 
INITA146 
JNITA147 
IMITA14M 
OFAX  14 
I N  I  T  A 1  4  U 
INITAISO 
INITA151 
INITA152 
OFAX  15 
OFAX  16 
OFAX  17 
INITA153 
INITA15* 
OFAX  IF 
I  N  i  T  A 1 5  5 
INITA156 
INITA157 
INITA150 
IN1TA15V 
INITA160 
I  I T  A 1 6 1 
IMTA162 
I N  1  T  A 163 
INITA164 
IHTA165 
I  N  I  T  A 1 6  6 
I N I T  A 167 
1NITA168 
IHITA169 
I  N  I  T  A 1 7  0 
I  N  I  T  A 1  7 1 
I  N  I  T  A 1  7  2 
I N I  T  A 1 7  3 
OFAX  19 
INITA175 
INITA176 
INITA177 
I N  I  T  A 1 7  8 
I V  I  T  A 1 7  9 
I  N I  T  A 1 8  0 
INITAIBI 
♦AFYINITA1H2 
INJTA1B3 
I  N  I  T  A 1 8  4 
INITA185 
1NITA186 
INITA1B7 
INITA188 
I N I TA189 
INITA190 
IN1TA191 
INITA192 
I N I T  A 193 
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DO  140  J  «  2,NJM1 
AJ*AY«(FlOAT(  J)-l,5)-Y2 
CP  «  CHAN**(9MAX«AJ) 

YY  ■  A-fl»(CH-l.)/(CW*l.) 

YS t A ( Jb* J )  ■  ,5*<YSF<JS*J>*YSF<JS«J*1>> 
fcS  Y  A l Jb* J )  ■  1,/YSEa(JS*J) 

ASrA(JS*J)  ■  ANG»TOP*<ATAiJ(Ar«YY)*Ar*YY/(l,*( AF*YV)»*?) ) 

DYA(JS*J)  «  X0*YSEA< JS*J)/YY 


140  CONTINUE 

YSt-A  (  JS*1  >  ■  YSE  A  (  JR*2 ! 
fc  S  y  A  (  Jb*i )  *  ESYA(J«?*2) 
ASyA<js*D  c  *  ASY  A  (  JS*2 ) 


DYA(JSM)  ■  -DYA(JS*2» 

IF  <  ISTAHT.NE.O)  00  TO  260 
DC  240  M  ■  1,3 
Lb  *  NdEU(MAT.M) 

GO  Tu  (1/0,180,190),  M 
170  LF  *  NLF 
GO  TO  20U 
180  LF  *  LH*NTP-1 
GO  TO  200 


190  LF  «  m*N«T-l 
200  LAUD  *  NfcNDI  MAT  ,  *1 )  »lF 
Lb  ■  M2-LF 


IF  <LM,EU,0)  Go  TO  240 
DC  210  I  ■  1,NTR 
IF  ( I TH (MAT ,  I  >  ,  L T  ,  LF )  GO  TO  210 
1TK(MAT.I>  ■  ITRIMAT, I)*LADD 
210  CONTINUE 

N I N2  «  2«N  J  NFC 

DC  220  I  ■  1 ,  N  J  N2 

IF  ( InFC(J«I-2) ,  NE , M*T )  50  TO  220 


IF  ( INFC(3*I-1) .GE.LF)  I  NFC  <  3* I -1 >  •  I  NFC  C  3* I -1 
IF  ( INFO ( 3* 1 ) , GE.LF)  INFC(3*H  ■  INFC ( 3  * ! > *1 ADD 


>*LArn 


220  CONTINUE 
NF1  ■  N2*l 
DC  230  LL  »  1,LM 
LI  «  NFl-LL 
L2  *  L1*L*DD 

FRX( IRS*L2)  *  FRY ( I0S*L1) 
FRY( IB5*L2I  ■  FRY (  It>S*Ll) 
230  CONTINUE 

N2  •  N2*L*DD 
240  CALL  RfcLABL  (M) 

DC  250  I  ■  1 , NF 
MB l I H  S ♦ 1,1)  «  1,0 
MB  (  I HS* I j  4 )  ■  o.O 
250  HBC IBS* I f 2>  «  Ul 
260  CALL  BPOSN 
CALL  RVALU 

IF  ( ISTART.NE.O)  GO  TO  320 
DC  280  J  ■  2,NJ 
JJ=IJS4< J-1)*N!P2 
DO  280  I  ■  1 ,  N I 
I J  =  JJ*  I 
M ( 1 J, 1 )  ■  1,0 


JNITA194 
OFAY  2'I 
INITA19Y 
INITA197 
INITA19P 
INITA191/ 
IVJTA200 
INITA201 
INITA202 
1NITA203 
I  N  l  T  A  2  0  4 
I  m  I  T  A  2  0  !■ 

I V I TA206 
INITA207 
IN1TA20H 
I  N  I  T  A  2  0  9 
I  N  I  T  A  2 1 P 
I  N  I  T  A?1 1 
I  N  1  T  A  2 1 2 
INITA213 
INITA214 
IN1TA215 
INITA216 
IN1TA217 
IN1TA21P 

I  N  I  T  A  2 1 9 
INITA220 
IN  I TA221 
IN1TA222 
IUTA223 
IMTA224 
I N I T  A225 
INITA226 
INITA227 
INITA22P 
IN1TA229 
I N  I  T  A  2  3  0 
IMITA231 
I  N  I  T  A  2  3  2 
INITA233 
INITA234 
INITA235 
I N  I  T  A  2  3  ft 
I N  l  T  A  2  3  7 
INITA23P 
INITA239 
INITA240 
INITA241 
I  N  I  T  A  2  4  2 
I N  I  TA243 

INITA244 
INITA245 
I  N I T  A246 
I  * !  I  T  A  2  4  7 
I  N  I  T  A  2  4  ft 
IMITA249 
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W<  I  J.2)  ■  U! 

UC  27(1  KK  ■  3#KMAX 
270  Ml  I J,KK)  •  0.0 
UIJ)  «  1 
280  CONTINUE 
CAUL  IPO&N 
DC  290  I  ■  1 # N I 

w(  l  JSM.i)  ■  M(  1  JS*?*NIP2*I,1) 

Ml  l  JS*I>2)  ■  W(IJSo*NIP2*!.r> 

M(US*l.J>  ■  -Ml  I  JS*2»NIP2M»3) 

290  L  <  l  JS*  I )  »  L 1 1  JS*2*MI  P'/*  I ) 

sen  a  u.u 
PCcH  «  .TRUE. 

DC  300  J  ■  2,NJ 
jj=!  JS*( J-1)*N1P2 
DC  300  I  ■  l.NJ 
1 J  =  J j* i 

|f(L(U),eo,o>  c,o  rn  300 

RRU  a  Ml J J,l) 

6  =  Ml  l  J* A) 

P  =  PRSIRMO.E) 

C?  *  PR*P*PE/RHO*»2 
C  =  SORT ( C2 ) 

UC  *  (ABij(W<IJ,2)-i<;YIJS*J)«l'(IJ»3))*Eir,riJS*J)*n*r.AX 
VC  *  (ARSlWI I J,3 ) >*C)*ESY(JS*  l)*DAY 
SR  »  AMAX1IUC.VC) 

IP  (SR.Lfc.SRM)  GO  Tn  300 
SEP  ■  SR 
ISb  a  l 
jSb  3  J 

300  CCnTJnuE 

UC  310  M  a  1,3 

NKb  a  NBbGIHAT.M) 

NM  ■  NENDIMAT.M) 

310  ARUSIZIMAT.M)  a  FRS  I  I  PS*’)NF ) -FRSI I PS*NNP ) 

DTfl  a  CFL/SBM 

DTmN  a  AMlNllDTM.niMN) 

320  FPATI22.HAT)  a  DTm 


330  CONTINUE 

IF  I  1ST  ART . EQ, 0  J  DTM I N  a  O.Of^DTPN 
IF  ITSAVfc.LT, 0.0)  TRAVE  a  1.CF8 
IF  ITPHPl.GE.O.O)  Gn  TU  340 
TPHPL  a  1 i 0F8 
GC  TO  350 

340  CAUL  PRNTS  (999. TITLE) 

CAUL  PHNPLT 

350  IF  (TPLOr.GE.O.O)  GO  TO  360 
TPuOT  a  1.0E8 
GC  TO  370 
360  CAUL  PLTQUT 

370  IF  (TPHIN.GF.0,0)  GO  TO  380 
TPHlN  a  1.0E8 
RE  IUHN 

380  CAUL  OUTPUT 


I N  I T  A  2  5  0 
INITA251 
JN1TA252 
IMTA253 
I-J1TA254 
IUTA255 
IMTA256 
IUTA2S7 
I*,ITA?‘>R 
IMTA259 
I N I TA  260 
I  N  I  T  A  2  6 1 
INITA76? 
INITA763 
INITA264 
I N I T A  265 
1 M I T  A266 
1 K'  I  TC12? 
I M I T  A267 
INITA26P 
IN1TA269 
INITA270 
INITA271 
INITA272 
IMTA273 
IMTA274 
I N I TA2  75 
INITA2/6 
INITA277 
I  *J  I  T  A  2  7  8 
I M I  T  A  2  7  9 
INITA280 
I  *i  I  TA2B1 
INITA2B2 
1NSTA283 
IMITA2B4 
I \l I TA2B5 
I N 1 TA2B6 
INITA2B7 
INITA2BB 

I N I TA2B9 
I N I T  A290 
IN1TA291 
IN1TA292 
INITA293 
I  N  I  T  A  2  9  4 
INITA295 
INITA296 
I N I T  A297 
I N I T  A796 
IN1TA299 
IRITA300 
IN ITA301 
J  N I TA  302 
1 N I T  A  3  0  3 
I  N I  T  A  3  0  4 
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390 

RE  1  URN 

FCMMAT 

(16155 

400 

FChMAT 

(1215) 

410 

FORMAT 

(OElO.3) 

420 

FCHMAT 

(20A4) 

430 

FCHMAT 

(1H1/1H020A4) 

440 

FCHMAT 

<1H0//56X8HMATERIALI?/5X19HMAXIMUM  ALPHA 

MESM*I4',17X16HMAXI  I 

1MLM  d€TA  MESH*  Mi  10X28H  !  n  J  T I  Al.  LEFThCST  ALPHA  L  I  HP*  !  4/5X29H  !M  T I AL  I  Nl  T  A313 
2  RIGHTMOST  ALPHA  L1n£*I4,7X?6H1NITIAL  TOPMOST  BETA  L  I NE* 1 4, 10X27H I  I N I T A31< 
TNI  UAL  MATERIAL  TwlrKNf-SS*F7,3/5X24MfNITlAL  MATERIAL  wE!GhT*F8.3, RIM TA31& 
4X13HMATERI AL  AMGLE*E7.2i16X11HCAP  LEK'GTHiFR  ,  P/5X25HP01  NI5ARY  LAYER  I w I T A 3 1 1 
5TMlCKNtSS*F8,3,7X30HONERTEP  VISCOSITY  COCFF IClENT*F6 , 4 .4X30HTHOSTE INI TA 3 J7 
6P  VISCOSITY  C0EFFICIENT*F6.4/5X17HTIME  STFP  FACTPR*F5.3,lfiX14HSH£AlMTA31b 
7R  m00ULUS*F9.5,1  7X1AHYIELD  COllOIT  1 0N»F9,5/5X25M INITIAL  MATFRI  AL  DEI'’ ITA31,J 
8NS1TY«F7.3,0X26HINITIAL  MaTFF I AL  VELCC I TY*F9 , 6 >  INITA32C 

450  FCkMaT  (1H041X47HINI TlAL  (Z.P)  COORDINATES  Or  LEFT  MATERIAL  F ACE/ C I N I T A321 


15</X, 219.5))) 


I N I T  A321 


460  FChMAT  (1H041X46HINITIAL  (Z.D  COORDINATES  OF  TOP  MATERIAL  FACE/ ( 5  I M TA323 


1(7X,2F9.5) ) J 


INITA32* 


470  FCrtMAT  ( XHQ 40X 4flH I N I T I  AL  (Z.O)  COORDINATES  OF  RIOT  MATERIAL  f ACE/ I N I TA325 


l(5l  7x»2F9«5) ) ) 


INITA326 


460  FChMaT  (1H043X45HINITIAL  (Z,'')  COORDINATES  OF  TRACER  PART  I CLES/ (5 ( l N l T A32? 
14X. I2,1H),2F9,5) ) )  I N I T  A  3  2  H 

fcNJ  I M  T A 3 2 V 


101 


„  iJW, 


SUBROUTINE  GENVAL  .  .  2f t*»b 

COMMON  /MaTARR/  NMAT, 1MAT<12,5),FMAT(23,5J»MAT 

COMMON  /ZONES/  NB6Cl5»3)#NLNB<9#3)|ARCSJZ<5»3>*n!SMAX(5#3>,OlSM!N(ZONES 

COMMON  /TRCPRT/  NTHS<5),  ITH(5,25),TR»I9.25>  J^ua^ 

COMMON  /COMVAl/  KT,  AKT.DT.DTMIN, JTIR, NEIBR.  1POINT. ERR. ERS.E"S1,RD|C0MVAl 

1S,TOP,DAL.KMAX,RORC,P»CL#LBiUF  .  *  ,  . 

COMMON  /MaTVAL/  AX,  at, cru.  VI*.  VIST, MU. rc, RM0.X9.ro  .  TO,  *•  i^klSiuJvAi" 

1  Afli  C-.AN.fiMAX.FACT,  AN3,  AE  ,SHM,  All,  AS,AK,MAL,MAS.MAV,  SAL  .  Q AS , OAK, OAXMA f V Ac 
2,OAT%UAx!Mol!v%AX2,DAY2,H0AXY,ODAXY,OTR,MALrMj;.TuTnMu.rRTOMU  OOVMMA  c 
SU.TRtnTM.Nl.Nj.NFMAX.IS.jS.IJR.llS.ISR.JSR.NlMC.NjMt.MO.NOl.NF.NklMAjV* 


4,NF .NIR2.NTR 
COMMON  /PRESS/  POEB.PR.PE.MATNG 
common  /InTFC/  NJNFC*  !Nrc<60J,NON!M20,5) 
DIMENSION  AMAT (21 ) ,  MMaT(7> 

EQUIVALENCE  (AMAT.AX),  <MMaT,NJ) 

REAL  mu 
UO  1U  I  •  1.21 
10  AMATU)  ■  FMAT(I.MAT) 

DO  20  l  ■  1.7 
20  MMAtm  ■  IMAT  (  i  .mat) 

MATNU  •  IMAT ( 10 , NAT ) 

DAX  «  1,0/AX 
DAY  •  1.0/AV 
HOAX  ■  C,5«riAX 
HDaY  *  0,5*DAY 
0AX2  ■  DAX**2 
DAY?  ■  DAY**2 

HDAXY  •  0.5«DAX*OA> 

UOaXY  ■  0.5«HDAXY 
HALEMU  •  0,9*MU 
TMTOMU  «  2, O'MU/3, C 
FRTDMU  ■  2,0*TMTUML 
QOyHU  »  1.0/MU 
TREOTM  ■  3 , 0/ < 2 , 0*MU ) 

AK»FACT*DT 
AL  ■  AK*DaX 
AS  •  AK«DaY 


HAL 

HAS 

HAK 

0*L 

QAS 

UAK 

N I R2 

N !  Ml 

NJM1 

ND  ■ 

NE  ■ 

NF  ■ 

NDl 

NEl 


0.5*AL 
0 ,5*AS 
0 i 5*AK 
0,25*AL 
0 ,25*AS 
C,25*AK 

■  NI*2 

■  NI-1 

■  NJ.l 
NEND(MAT , 1 ) 
NEND(MAT,25 
NEND(MAT,3> 

ND«1 
NE*1 


N?R  «  NTRS  <  MAT ) 

RETUKN 

END 


MAT  VAC 
PRESS 
I k  TFC 
OFNVALin 
0FNVAC11 
GFNVAL12 
GFNVAl 13 
UFNVALH 
GFNVAC15 
GENVAL16 
GFNVAL17 
GFNVALl" 
GFNVAL19 

GFNVAl 2  0 

GENVAL21 

GFNVAL22 

GFNVAl 23 

GFNVAL2* 

GFNVAL25 

GENVAL2A 

GFNVAL27 

GFNVAL28 

GFNVAL29 

GFNVAl  30 

orAx  21 

QENVAC33 

GFNVAL34 

GFNVAl  35 

GENVA1.36 

UCNVAL37 

GFNVAl  38 

0FNVALJ9 

GFNVAl  4  (I 

GFNVAU41 

GENVAL42 

GENVAL43 

GENVAL44 

GENVAL45 

GFNVAL46 

GFNVAL47 

GFNVAL48 

GFNVAL49 

GENVAL50 

GFNVAL51 
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SUBROUTINE  MVBNO  ,  ^5'“ 

COMMON  /BNDVAL/  HB(60n,7),fl.X<*00)(fRT(600).PR3(6n0» 

COMMON  /NaT ARR/  NMAT,1MAT<12,5),FMAT(23,5>.MAT 

COMMON  /COHVAL/  KT^KT.DT.DTMfN.JTER.NeiBB.IPOlNT.ERR.fcPS.EPSl.SDIUOMVAL 

--|U.PSPL.LH.Lr  C  0  M  V  A I. 


4,Nr,NIM2.NTR 
hOU  I  VALENCE  (  Y2i  TO ) 

DO  10  MAT  ■  l.NMAT 

CALL  GLNVAL 

N1  ■  I  US* 1 

N2  ■  IUS«NF 

DO  10  I  ■  N1.N2 

CH»CHAM«(BMAX»FHY( I ) *V2  > 

RH  »  A-B*(CH-1,0>/(CM*1,0) 

2B  ■  XU*(FRX(  I  ).XZI*ANG*RU*TCM«ATAMAF«RB) 
FRXd)  *  ZB*DT*wU<  I  i2  ' 

FRY 1 1 )  ■  Ai1AX1(R»*CT*W6U.3).0,0> 

10  CONTINUE 
rfturn 
end 


OF  AX 
■IvBND 
.1'/BNO 
1VBNU 
H'/BNU 
Mi/BND 
or  a  x 

M'/0ND 
MV0ND 
M«BND 
li'/BNDCll 
iva ND  17 
MVBND  IB 
MVBNO  1=> 


4 

2? 

7 

B 

9 

in 

n 

23 

13 

1A 

15 
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fV  M  CV 


SlaRO'/T  1  Nfc  ADJINT 

CCMMCN  /HNDVAL/  4R<400,7),FRX<600  >,rpV<d0O)*rRS<600> 

COMMON  /MATARR/  NMAT,IMAT<12,5),FMAT(23.5)#HAT 
CCMMON  /ZONES/  NBeG<5,3),NENn<5,3>»AFCS!Zt5«I>*DISMAXI5'.3> 
15,  J) 

COMMON/ SCOTCH/  T4fl(300,7),TFrx(300),TFRY(300> 

COMMON  /JNTFC/  NlNFO,  tNFC<60>,NONlN<20,5) 

COMMON  /COMVAL/  «T,AKT,OT,DTMIN,  ITER, NEIPIMPUNT', ESP. E»S. 
IS, tOP,DAL,KMAX,POPG,PSCL,tfi.LF 
LCulCAL  t«R 
DC  80  |  ■  1,NINFC 
MA I  1  ■  INFC(6*I-5) 

MA i 2  «  lNPC(6*I-2) 

I E  Sl  ■  1MAT(7,KAT1) 

IPS2  *  IMAT(7,MAT?) 

IF (MAT2.fcO.3J  GO  TO  30 


ADJINT 
BNOVAL 
maTahr 

,OISMIN(ZONES 
ZONFS 
SCKTCM 
INTTC 

epsi.rdicomval 

COMVAL  3 
ADJINT  V 
AOJlNfld 
ADJINU1 

AD  J  I NT1-? 

AnjiN’ii 

ADJP  Tl< 
ADJINT15 


N1  ■  IbSl*l 

N2  ■  I bSl*NEND ( MaTI , 3  J 

Ml* IfcS2*NtNn(MAT2,2J 

M2* !bS2*NEND(MAT2,3) 

ZNX2»0,0 

DC  2  J«Mi,M2 

2  ZMX2*AMAX1<FRX( JJ.ZMX2) 

K  *  N  1 

DC  4  J*N1«N2 

IF (FNX( J)  .GT.ZKX2)  GO  TO  4 
K«  J 

4  CONTINUE 

N2  *m  I  NO ( K*1 , N2 ) 

RM*1*0,0 
DO  5  J*N1,N2 

5  RNX1«AMAX1(FRY(J)  ,  Rm  X  1 } 

DC  6  K*M1,M2 

IF  (FRV(K)  .LE.RKXtJ  r,0  TO  fl 

6  CCNTJNUF 

7  K*K*1 

a  rnx2*amaxi(fry(k.ij,fry(k)) 

RNn2iAMIN1(FRY(K*1> ,FRY(K) ) 


A 0  J  *i  NT  1 0 
ADJIf .  T 1 7 
A0JIKT18 
ADJINT11? 
APJINT20 
ADJIMT21 
ADJINT22 
ADJINT23 
ADJJf T 24 
ADJIF  T2S> 
ADJINT26 
AUINT27 
ADJINT2F 
AnJIt.T29 
ADJir.TJP 
ADJIf T31 
APJINT32 
ADJIFT33 
APJIKT34 
ADJINT35 
ADJINT36 
ADJINT37 


ZMX2*AMAX1(FRX(K"1),FPX(KJ  ) 
ZNN2«AMIN1(FRX(K-1) ,FRX(K) ) 


ADJIf.T3b 

ADJINT39 


DC  10  J  *  N 1 , N 9 

IF(FpY(jJ.GE.RMN2,AND,FRX<J).r,E,ZMN2)  Go  TO  11 

10  CONTINUE 
GO  TO  7 

11  J1*MAX0< J, IBS1*2) 

J2= Jl-1 

DC  12  J*Jl,N2 

IF(FHY(J),LT.RMN2,0P,FRX(J),nT.ZMX2)  GO  TO  12 
J2*  J 

12  CONTINUE 

J2*M  I  NO ( J2*l, N2 ) 

D*FRY(K)-FRY(K.l) 

IF (ABS(D) , LE .1 , 0E-10  )  D-1.0F-10 
EN2»(FRX(X)-FRx(K-l) >/D 
IF(ABS(EM2),LE,1.0)  GO  TO  14 
EM*«l,0/fcM2 


ADJINT40 
ADJINT41 
APJINT42 
ADJINT43 
AD J I DT44 

APJJNT45 
ADJINT46 
ADJINT47 
ADJINT4R 
ADJINT49 
ADJ INTSO 
ADJINT51 
ADJINT52 
APJINT53 
ADJINT54 
ADJINT55 
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B2*rHY<K-l)-EH2*rRXtK-l> 

IEU-2 
00  TO  15 

14  82«FRX<K-l)-EM2*rRV(K-l) 

IEG'l 

15 

DC  2 t  JJaJli J2 
J"J*1 

D»e  RX< J>'FflX<J»l) 
IFUBS(D).LE.I.OE-IO)  D-1.0F-10 
EM«<FHYIJ)-FRY<  J-l)  )/D 
JFUiStEHD.LE.l.O)  GO  TO  18 
EK1«1,0/EM1 

B1*FRX<  j-i)-emi*foy<  J-l) 

IE*  I L 0 * 2 
GC  TO  20 

18  Bl*FRYU-l)-EMl*FRX<  J-l) 

IE*  IEO 

20  GO  TO  (21*22,23.24). IE 

21  R»(B1*EM1*B2)/(1,0-FM1*EM2> 

GC  TO  25 

22  R»lEh2«Bl-EM:*P2)/(RM2»EHl) 

GC  TO  25 

23  H«lBl-B?)/(EM2»EMi) 

GO  TO  25 

24  R»(Eh2«Bl«B2)/(l,0-EMl*EM2) 

25  IFlRlr,t.RMN2.1ND,R.LE,RMX2)  GO  TO  40 
28  CONTINUE 

GO  TO  7 

30  Nl*IbSl*lNFC(6*I»4) 
N2*IBS1*|NFC(6*I*3) 

M1*IBS2*INFC(6*I) 

H2*IBS2*INFC(6*I»1I 

M3*lNFC«6*I-i;*l 

M4*NEND(M*T2,3J 

U*UD«N2-N1*H2*M1 

NFsM4*l*00 

IF (NF,GT i I  MAT  (  3  •  MAT? ) /  GO  TO  55 

DO  32  J*M3 *  M4 

K»1BS2*J 

TFHX(J)«FRX(K) 

32  TFrtY( j)«FRY(K) 

M5*M2*U*D0 

J»N2*1 

DC  34  K*M1,M5 
J«J*1 

FRX  ( K )  «FRX ( J ) 

34  FRYIK)«FRY{J) 

K»M5 

DO  36  J*M’J*M4 

K«K*1 

FRX<K)«TFRX(J) 

36  FR Y ( K )  »TFRY  C  J  > 

H2*H2-J8S2 

IKE  C(6*I-1)»M2*LADD 

NEND(MAT2,3)«NF 


ADJINT56 
A0JINT57 
A0JINT5B 
A0JINT5V 
ADJINT6U 
ADJINT61 
AHJINT62 
ADJINT63 
A0JINT64 
ADJINT65 
A0JINT66 
A0JINT67 
AnJINTftr 
AD J I NT69 
APJINT70 
ADJIflT/t 
AD  J  I  r.T  72 
APJtM7  i 
ADJINT7« 
APJIM75 

ADJINT7Y 
ADJINT77 
A0JINT7B 
A0JINT79 
ADJINY80 
ADJINT81 
ADJINT62 
A0JINTB3 
ADJINTB4 
AP J I NT85 
ADJIMTB6 
ADJINTB7 
ADJINT8B 
ADJINTB9 
A0JINT90 
AOJ I NT91 
An J I  NT92 
ADJINT93 
ADJINT94 
A0JINT95 
ADJINT96 
AD J I NT97 
ADJ1NT9B 
ADJINT99 
AOJINIOO 
ADJIN101 
AOJIMO? 
ADJIN103 
ADJIN104 
ADJIM05 
ADJIN106 
ADJIM07 
ADJIN108 
ADJIN109 
ADJIN110 
ADJIN1U 
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lMNfcND<H*T2,2),LT,H2)  00  TO  #0 

NEND(MAT2,2>»NEND(HAT2,2)*t.ADD 

NetQ(MAT2«3)»NBE0<MAT2,3>*UrD 

IF (NfcN0<M*T2,l) ,LT,M2)  00  -0  80 

NEnD<MAT2#1)«NEND<HAT2,1>*LAP0 

NBtG(MAT2,2)«NBEQ<MAT2,2>*LA!'n 

GC  TO  60 
40  NINT  ■  J-l 
50  CONTINUE 

j  M  C  (  6* 1 *3 )  ■  MNT-IBS1 
IN>C(6«I)  »  K-1BS2 
NF  •  INFC«6*I)*!NFC(6*I-J>-1 

IF  (NF,LE.1MAT(3,MAT2»  GO  TO  60 

55  CONTINUE 

WRITE  16,90)  MAT2.MAT1 
ERR  ■  ,THUE, 

GC  TO  60 

60  NEND ( MAT2» 3 )  ■  NF 
l N *■  C  t  6* I •! )  ■  Nf 
K  *  K»lNFC(6*I*3) 

DO  70  J  ■  Nl *  N I  NT 
K  *  K»1 

FR  X ( K  )  ■  FRX(J) 

70  FRT(K)  «  FRY(J) 

80  CONTINUE 
HE  I  URN 


C  90  FORMAT  (41H0T0C  MANY  POINTS  ON  INTERFACE  OF 

1TERUL12) 

END 


I'ATEP  1 AL  1 2#  16M 


ADJIM12 

ADJIH113 

adjimi4 

adjinui* 

ADJ  I  Nil* 

AOJtNll.7 

ADJ1NUP 

AO  J 1  Ml9 

AOJIM2') 

A0J1N121 

AOJIN122 

A0JJM.23 

A0JIN124 

AOJIM2)> 

AOJIM2N 

A0JIN127 

ADJIM2p 
AOJ I N129 
AnJINlJ^ 
AQJIN131 
A0JIN132 
ADJIM33 
ADJINU4 
A0JIM35 
A0JIM36 
A0JIM37 
A0JIM3B 

WITH  MAADJIN139 
AOJ  I  Nl  4f) 
AO  J  I M41 
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subroutine  fdiff  t Diff  ? 

COMMON//  w ( 2200  <  7  ) ,  L  ( 2200  >  JmTvAL  2 

CCMMON/MSMFCN/  Y(78),DY(7fl),PYA{78)»ESY(78)*YSE(7B)»ESYA(70),  MSMFCN  7 
lYSfcA<7«),E3VE(78>,E!GF(7R),ASY<7B>,AYY<78>,ASYA(7B>  MSHFCN  3 

COMMON  /MATARR/  NHAT, IMATI12, 5) ,FMAT(23,5> ,HAT  MaTaRR  7 

COMMON  /COMVAL/  KT,  AKT,OT,DTMlN,  ITER, NEIBR,  IPOJNT'.ERR.ERS.EPSl  .RD1COMVAL  ? 
IS, lOP,DAL*KHAX,PORQ,PSCL,LB,Lr  COMVAL  3 

COMMON  /MATVAL/  AX,  A V,  CFL,  V  IS . V! ST, MU YC.RHO , XO.PO , TO .  XZ» A , B. ABL, DMaTvaL  2 
1 A0L, chan, UMAX, F ACT,  ANQ.AF.SBH.Al, AS, AKiMAL, HAS, Ham. CAt.QA?, OAK, OAXMaTvAL  3 
2,CaV,HOAX,HDaY,OAX2,DAY2,HDaXY,ODAXY,DTR,HALfMU,TWTDMU*FRTcMU,OOVMHaTVAL  A 


3U,  IREOTM,NI,nj,NFmax»  IS, JS, IJS,  IBS,rSR,JSR,NIMi,NJMl,K'D'.NCl,NF,NElMATVAL  7 


4,N> ,NIP?,NTR  MATVAL  6 

COMMON  /PWESS/  PDER'.PR*PE,MATN0  PRfcSS  2 

REAL  MU  FUFF  7 

LOGICAL  PDER.AXIS  FDIFF  1 ,) 

DIMENSION  HU  ( 3, 3 , 7 )  i  F<3,3,7).  0<3, 3, 7),  H(3,3,7)‘,  7(3,3. 3)  FDIFF  11 

DIMENSION  UP(2,2,7)'t  HN<7)  FDIFF  1? 

SBm  ■  Q.U  FUFF  13 

NJH1  ■  N  1*1  FniFF  1 A 

DC  10  I  ■  l,Nt  FOIEF  17 

M  =  NIPl-I  FDIFF  16 

DC  10  N  «  1, NJ  FD1FF  17 


MN  ■  I JS* ( N-l ) *N I P2*M  FOIFF  lfc 

L(MN*2)  ■  L ( MN )  F  n  I T  F  1« 

DC  10  K  ■  l.KMAX  FD 1 FF  20 

H(MN*2,K)  ■  H ( MN, K )  FOIFF  21 

10  CONTINUE  FD I FF  22 

DO  260  M  a  4 , N I P 1  FDIFF  23 

DC  260  N  •  2, NJMl  FUFF  24 

MN  »  I  JS*(N»1)*NIP2*M  FUFF  25 

IE  «L<MN),EO.O)  GO  TO  260  FDIFF  26 

NEIHR  a  o  FDIFF  27 


IF 

IF 


<L<MN*1),EO,0)  NEIBR  ■  NEIBR*1 
(L<MN*N|P2) ,EQ,0»  NEIBR  a  NE IBR*2 


<  L  C  MN-1 ) ,EO,0)  NEIHR  a  NE I BR*4 
< L ( MN-NJP2) ,EQ, Q )  NEIBR  a  NEIBR*8 


IF  <L<MN*NIP2*i) ,EQ,0 )  NEIBR  ■  NEIBR*16 
IF  (L(MN*NIP2.1) ,fq  n)  NEIBR  ■  NEIBR*32 
IF  <L(MN-NIP2.1),EQ.0>  NEIBR  a  NE!8ft»64 
IF  < L <  Miu-N I P2*l ) , EQ ^ 0  )  NE  IBP  ■  NE IBR+12B 
IF  (NEIBR, NE.O)  GO  TO  210 
MM/  a  M-2 


NM*  a  n-2 
AXIS  a  .FALSE, 

IF  (N.fcO.Z)  AXIS  «  .TRUE, 
ESYN  a  FST(JS*N> 


Dul  a  U Y ( JS*N )  *QAK 
DJ2  a  , 5*UJ1 
PDbR  a  .FALSE, 

DO  20  J  a  1,3 
Md  ■  NM?*d 


YStJ  a  YS6 ( JS*MJ ) 
AR  ■  -ASY(JS*MJ) 
JJsIdS*(MJ-l)*MP? 
DO  20  l  a  1,3 
MI  a  MM?* I 


FUFF 

28 

FDIFF 

29 

FDIFF 

3  n 

FDIFF 

31 

F  P  I  FF 

32 

FOIFF 

33 

FOIFF 

34 

FDIFF 

35 

FDIFF 

36 

FDIFF 

37 

FDIFF 

38 

FDIFF 

39 

FDIFF 

4  0 

FDIFF 

41 

FDIFF 

42 

FDIFF 

43 

FDIFF 

44 

FDIFF 

45 

FDIFF 

46 

FDIFF 

47 

FDIFF 

48 

FDIFF 

49 

FDIFF 

50 

FDIFF 

51 

107 


IJ«JJ*M1 
RPU  •  M (  I J# 1 ) 

U  3  W< l J| z  ) 

V  «  W< l J|3) 

E  «  M |Ji<) 

Sll  ■  M( I J«5) 

SI  2  ■  M  (  I  J  >  6  ) 

S22  ■  M ( !  J  i  7  ) 

P  s  PRSIW’OiE) 
WMliJil)  ■  RH0*YSEJ 


RW< I, J,1)*U 
HW ( I . J. 1 ) *V 

ww  c I  * J,t)*(F*0.5*»U*U*V*V)) 
Sll* YSE J 

*  YSE  J 

*  YSE  J 


min  i  i ,  j«  2) 

MR! J,3) 

Nta( It J«  4  > 

HRl  Ii J|5) 

Htal I,  J,6) 

Mta( !, J,7) 

FI  1 1 Ji 2 )  ■  r<I,,J,l)*U-YSEJ*(SU-P*AR*S12) 

fr!!:j;J!  -  VSEj-*Ulp>*!uiliiSj-Sl2*<vI*P*U>.Sll*U-*R.S?2.V> 

F ( i i Ji 5 )  ■  THTDHU«(?,*U-*R*V)*YSEJ 

F ( I »  J, 6 )  *  MU*<U*AR*V)*YSFJ 

F ( l , J  j  7  )  «  TWTCMJ*(?.*AR*V-U)*YSEJ 

HdiJil)  *  RHO*V 

HIIiJi2>  *  H( I , J# 1 1 «U-S12 

HlliJiJ)  ■  HI I,J,i)«V-2,*S22-Sll 

H( 1 . Ji 4  )  «  (E*P-S22>*V-U*S12 

HI  1 1  J  i  5 )  ■  TWTDMJ*V 

H<  1 1  Ji  6  >  «  0. 

H( 1 i Ji 7 )  •  HCl.JiS) 

GIliJiD  *  M(l,Jil) 

G  (  i  ■  J i 2 )  "  H(  I  i J i 2 ) 

GUiJiJ)  ■  H(  1,  J,3)*P*Sll*S2r 
G(  1 1 Ji  4  )  ■  H( 1 1 Ji 4 ) 

-TWTDMU«V 
MU*U 

FRTDMJ*V 

-*5*ISU-S22> 

•  S12 


F01FF  57 
FOIFF  53 
FDIFF  54 
FDIFF  5? 
FOIFF  tic 
FOIFF  57 
FOIFF  5« 
FD  IFF  5'i 
FOIFF  60 
FOIFF  61 
FOIFF  6? 
FOIFF  63 
FOIFF  64 
FD  1  FA  65 

FDIFF  64 
FOIFF  67 

FDIFF  6« 
FOIFF  69 
FOIFF  70 
FOIFF  71 
FDIFF  72 
FOIFF  73 
FOIFF  74 
FOIFF  75 
FOIFF  76 
FOIFF  77 
FDIFF  7b 
FOIFF  79 
FOIFF  BO 
FDIFF  B1 
FOIFF  B2 
FDIFF  H3 
FDIFF  B4 
FTIFF  H5 
FDIFF  66 
FOIFF  B7 
foiff  ee 

FOIFF  69 
FDIFF  90 
FOIFF  91 
FDIFF  92 
FDIFF  93 
FDIFF  94 
FDIFF  95 


G  <  1  •  Ji 5 ) 

G( 1 i Ji 6) 

G(  1 1  J • 7  > 

Td  i  Ji  1 ) 

T< l i Ji 2 ) 

TIliJ.3) 

20  AG1X  »UAL*ABS<F<3i2il)/'WH«3»2il)-^2,2.1)/WM<2i2iin  ru.r,  _ 

A02X  «  AL,*ABSIF(2«2i1)7W'>1(2i2i1)*F<1|2i1)/MW(1*4i1)>  t»/WW(2iFDIFF  96 

AC1Y  *  AS*ABS<ESY( JS*N*1 )*WW(2i3.3)/WW<2,3il>*ESYi.  WW<2,2,3  /  2  F° IFF  97 

AS*ABS(ESYN.UW<2.2.3)/WW(2,2.1)-ESY(JS4N-lI.WW(2.1.3>/-Wt2.FDIFF  98 

Hi  1 ) )  FDIFF  100 

DO  60  K  ■  1 i 4  FOIFF101 

DO  30  J  ■  1 1 2  FDIFF 102 

MJ  ■  NM2*  J  F01FF103 

DJ  «  DY A { JS*M J )  FDIFF104 

30  WPI  1  ?  jJ  K  )  •,0i25*(WW(  I*li  J*liK)*WW<I*li  JiK)*WW(  U  J*1,K)|WW<  I#  J^>  JFDIF^l^^ 
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3*M I,J*1,K)»h<1, J,KJ) 

IF  (, NOT, AXIS)  GO  TO  40 
0  =  0AS*(H(2i3iK)»H(2i1>K)) 
GO  TO  50 

40  0  *  0J1*<H(2,3,K)*N(2,1,K)) 


FDIFFlOe 
FDIFF109 
FDIFF110 
FDIFF ill 
FD1FF11? 


50  HMK)  •  WW(2#2,K)-0*L*<F(3,2,K)-F(1#2IK))-0AS*(G(2#3,K),G<2I1,K))*F01FFU3 
1Q*VJST«(  A01X*(MW(3,?,K)-HW(?,2,K)>-AC2X«<UH<2*2*K»«WH<i;2.KI)*A01YFDIFF 114 
2*<HW(2,3<K).hW(2,2,k)>-AQ2Y*(WH<2,2,K>*WM(2,1«K)M  FDIFF  115 

60  CONTINUE  FD1FFU6 

DO  70  J  ■  1,2  FD1FF117 

MU  «  NM2*J  FDIFF11P 

DJ  ■  DTA ( JS*MJ)  FDIFF119 

DO  70  J  ■  1,2  FDIFF  1  Si 0 

hi  ■  MM2*  I  FDIFF  J2l 

DDF  s  HAL*(00VMU*(YSE(JS*MJ*1)*ASY(JS*MJ*1)*(G(I*1,J*1’,  6>*G(I »  J*1 FDIFF 12? 

1,6))*VSEC JS*MJ)*ASYIJS*M J>*( 0(1*1 ,J,6)*Gn#J#6)))«TRE0TM*<YSE(JS*MFDlFF123 
2J*1)*(U( 1*1, J*l, 5 >-«<!# J*1.5) )*VSE( JS*HJ)*(GC 1*1, J,5)-GI I, J,5) ) ) > -FDIFF 124 
3HAb«00VMU*(G(  1*1,  J*l,6)-G(  I*1.J,6)*G<  I ,  J*l,  6) -G(  I',  J,  6) )  FDIFF  125 

CCX  »  ,25*TRECTM*<E«?Y(JS*MJ*1)*(F< 1 *1 , J*i,5 >*F ( l,J*l,5)*Ft 1*1, J*l, FDIFF 126 
17 »  *F ( I , J*1,7))*ESY( JS*MJ)*(F<  T*l,  J,5)*Ff I, J.5>*F< 1*1 ,  J,  7 )*F  ( I ,  J,  7 )F Dl FF 127 
2))  FDIFF12P 

CC2  »  * . 25*TRE0TM* ( R( 1*1 , J*1*5)*G( I*1,J,5)*G(I, J*l,5 ) *GI I , J,5 I )  FD1FF129 
DC  70  K  a  5.7  FDIFF1J0 

T4V  ■  ,25*<T< I*1,J*1»K*4)*TI I*1,J«K*4>*T( I,J*1#X-4)*ti I, J,K»4) >  FDIFF131 
DIFS  «  HAS*(ESY( JS*MJ*1)*(W«( 1*1, J*1,K)*WW( !,J*1,K> > -ESY < jS*M J > « < WFDl FF132 
1M  < 1*1,J,K)*WN(I,J,K)>)  FD I FF 133 

DIFSS  ■  H*L«<HW<I*l,J*l,K)-UW<I,J*l.K>*WK(I*l,J,K».k'H(liJ.K))  FPIFF134 

WP  t I , J, K  )  ■  ,25*(WW(I*1, J*1 ,K)*UMC!*1»J*K)*WW(I»U*1,K)*UW(I,J,K>>*FDIFF135 
lHAL*im*l,  J*l,K)-m.J*l,K)*F(  1*1,  J,K>.ni,vl*K>>*H*S*(0(I*l,  J*1,KFDIFF136 
2)-U<I*l,  J,KJ*G(I, J*1,K)-G< I,J.K))-CCl*DIFSS-CC2*DIFS-TAV*rIFF-OAK*FDIFF137 
3DJ*<H(I*1,J*1,K)*H(I*1,J,K)*HU,J*1,K)*M(I,J,K>)  FDIFF 138 

70  CONTINUE  FDIFF 139 

DO  100  K  ■  5,7  FDIFF 14P 

IF  (,NOT,AXJS>  GO  TO  80  FDIFF 141 

0  *  0AS*(H(2,3,K>.H(2,1,K)>  FDIFF142 

GO  TO  90  FDIFF143 

80  0  =  DJ1*(f4(2,3,K)*H(2,1,K)  )  FPIFF144 

90  HMK)  »  WW(2,2,k)*Q*L*<F<3,2.K).F<1,2,K)*(W{HN,2)  FDIFF145 

1-*5Y( JS*N>*W(MN,3) )  *(HN<3,2,K)vWW(1,2,K))-T(2,2,K-4)*Y5FDIFF146 

2E<JS*N)*(ASY(JS*N; *oOVMU*  <G*  t ,?,6>*G(1,2,6) >-TRE0TM*(G(3.?»5)-G(l.FPIFF14  7 
32«5))))*aAS»(G(2,3  r'.'1 . 3  >*  <  ESY<  j3*N*l )  *  FD1FF148 

4WW(2,3,K)*ESY(.iS*N-  0*WWJ2,1,KJ  )*T(2,X,k>4)*(W(MN*NIP2,?I  FDIFF  149 

5-NlMN*NIP2,2) >).0*V!ST*(A01X*IM«O,2,K)-WU(2,2,K))-AQ2X*(wW(2  FDIFF150 

6,2»K)*MW(1,2,K) )*AOl K*<WH(2,3,K)-MM<2,2,K)  )*A02Y*»HW(2,?,K).HW(2,1FDIFF151 
7,K )) )  FDIFF15? 

100  CONTINUE  FD I FF 153 

DO  110  J  ■  1,2  FDIFF 154 

MJ  «  NM2* J  FD I FF 155 

AR  ■  -ASYA(JS*MJ)  FDIFF 156 

YStJ  «  YSEA(JS*MJ)  FD  I  FF 157 

ESYJ  ■  ESYA(JS*MJ)  FDIFF 156 

DC  110  I  ■  1,2  FDIFF 159 

RhU  »  NP(  l,U,l)*ESYJ  F  D I FF 166 

U  *  WP< I , U, 2) /UP ( I , J, 1 1  FDIFF161 

V  *  HP ( I , U, 3) /WP ( I , J, 1 )  FDIFF162 

E  =  HP(I, J,4)/NP( !,J,1)-0,5*(U*U*V*V)  FDIFF163 
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su 

SI* 
S2* 
P  * 
E  * 


«  t»P(  1»J,5)*ESYJ 

■  t*P(  l, J»6)*ESYJ 

■  *P(I#J,7)*ESYJ 
PRS(RHOiE) 
WPU.J#4)*ESYj 


110 


120 

130 


KO 


rmrFi64 
FDIFF165 
foiffiop 

FD1FF167 
FOIFF 168 
F01FF16» 
FDIFF170 
FP5FF171 
FD1FF172 
FfllFF  17» 
F 1)  i  F  F 1 7  * 
FOIFF 17* 
FOIFF 176 
FDIFF177 
FP  IFF  1 7b 
FD1FF179 
FPIFF 1 B  n 
FD1FF161 
FFlIFF  182 
F0IFF1H3 
FD1FF1B4 
FD1FF185 
FPIFF 186 
FDIFF187 
FMFFlBB 
FD1FF189 
F0IFF190 
FDIFF1V1 
FD1FF192 
F0IFF1V3 
FPIFF194 
FPIFF195 
FDIFF 196 

w  *o«  Fo I FF197 

0  s  DJ2«(R(2,2,K>aH(2,l,K>aH(l,2»K>aH<l.l»K>>  FD1FF198 

WN (  K )  ■  HN<K)-04L*<F<2,2,K).r<l»2#K)*F<2,l#K)-F<lil#K))«0*S*(G(2»?FnlFF 199 

l,K).Q<2,l#K>*G(1.2,K>-G<l,l,F'))-Q  FOIFF  200 

-  -  FPIFF201 


F( l,J,l> 

WP< I, J,2)*AR*WP(I,J,J) 

Fdij,  j 

F<  1,  J.i)*U-YSE.XSll-P*AR*Sl2> 

F ( 1 <  v, 3  ) 

F< I, J,1)*V*YSEJ*((P-«22>*AR-S1?> 

F  (  1 1  J ,  4  ) 

YSEJ*((E*P)*(U»AR*V)'>S12*<V*AR*U>« 

F  (  l ,  J, 3  ) 

TwTDMJ.(?,*U-AR*V5-T3EJ 

F<  !|  J,6) 

MU*<U*AR«V)*YSEJ 

F  <  1 » J, 7  ) 

TWTDMJ*<?,*aR*V-II)*YSEJ 

H(liJ.l) 

RHOa  V 

H( 1 , J,*> 

H  t  I ,  J,  1 ) »U-S12 

H( 1, J,3> 

H<  I,  J,1)*V-2,*S22-S11 

H(  1  •  J , 4 ) 

(E*P-S22)*V.n*S12 

H  (  1  1  J  i  2  ) 

TWTDMU*V 

H  <  1  ,  J  ,  6  ) 

0. 

H  <  1 «  J  •  7  ) 

M(  I  , J.5) 

G( 1, J,l> 

H<  I,J,1) 

G( 1 1 J, 2  ) 

M (  I , J, 2 ) 

G(  1  ,  J, i ) 

H(  I,  J,3)*P*S11*S22 

G< 1 t J,4) 

H{  I ,  J, 4 ) 

G ( 1, J,3) 

“TWTDMU* V 

G( l#J,6) 

MU*U 

G( li  J, 7) 

FRTDMJ*V 

T< 1 ,  J, 1 ) 

S12 

T 1 1 1  J, 2  > 

* ,5* ( S11-S22 ) 

T  ( 1 1 J, 3 ) 
CONTINUE 

•S12 

DC  140  K 

■ 

1.4 

IF  (,NOT, 

AXIS)  GO  TO  120 

0  =  QAS*( 

H 

<2,2,K)-H(2,l,K>aH(l,2.K).Ml,l,K>> 

GO  TO  130 

1*E6YA<JS«N  . 

CC*  a  -.25.TRE0TM 
00  170  K  ■  5,7 


FDIFF207 
F  ' ! FF  208 
FDIFF 209 
F  0 1 F  F  2 1 0 


150 

160 


1)*<F<2,1,5)*F(1,1.5)*F(2,1,7)*F(1#1#7))> 
TRE0TM*<fi<2,2,5)*f5<2,1.5>*G(l,2,5>*G<r,l,5>) 

DO  170  K  ■  5,7  r  Li.rr 

TAV  •  , 25* ( T ( 2, 2# K»4 ) *TC1,2,K«4)*T(2, 1»K»4 )6T 1 1# 1,K«4 > )  FDIFF210 

OD  S  «  OAS*(ESYA(  JSaN)*<WP<2,2,K>*WP<l,2,K)  )«ESYA(JS*N-1)*<WP(2,1.F0IF»“211 
1K)*WP<1.1,K) ) )  ^DJFF 212 

UIFSS  ■  UAL*(WP(2,2.K)-UP(1,2,K>*WP(2,1>K)-MP<1,1,K))  FOIFF 213 

IF  (.NOT, AXIS)  GO  TO  150 

Q*  fiAS*(H(2,2,K)-H(2,l,K)*H(l,2,K)-Ml,l,K) )  FDIFF219 

GO  TO  16U  FDIFF216 

Q  *  DJ2*(H(2,2,K)*H(2.1.K>*H{1,2«K)*H<1i1*K>>  FDIFF217 

HMK)  a  wN(K)*CAL*(F(2,2,K)»F(1,2,K)*F(2,1,K)-F(1',  1,K))*GaS*(G(2,2F0IFF21P 
l,K)»G(2.1»K>*G(l,2,K)-G(l,l,K>)-CCl*tIFSS-CC2*DIFS-TAW*0lFF-0  FDIFF 219 


no 


170  CONTINUE  FD1FF220 

W(HN  -2.1)  ■  WN ( 1 ) *ESY ( JS*N )  FDIFf  221 

W  ( HN  -9,2)  ■  WN(  2 ) /HN ( 1 )  FT  I FF  222 

W(MN  .2,3)  ■  WN(3)/HN(1>  FDIFF223 

VEl  •  W(MN-2,2)**2*U(HN.2,3)««2  FDIFF22< 

W(HN  -2,4)  ■  AMAX1(HN(4>/WN(1)-0,5*VEL,0,0)  FD1FF225 

W(MN  -2,5)  ■  WN(5)*ESYN  FDIFF226 

W(HN  -2,6)  •  WN(6)*EIYN  FDIFF227 

W(MN  -2.7)  ■  WN(7  )#ESYN  „  rDirFgXP 

YIELD  ■  H<MN-2,9)**2*W(MN.2.7)**2*WO'N.2,6)**?4W(MN.2,5)*w(MN.2,7)FDIFF22« 

IF  IYIfcLU.LT.YC)  00  TO  200  FOIFF230 

IF  (AXIS)  60  TO  1*0  FDIFf  ?<51 

WCOT  »  (  (W(MN.5)*ASY( JS*N)*W(MN,6) ) • < W ( HN*1, 2 >-W < HN-1. 2 )) ♦ < W ( MN, 6 ) F D 1 FF 232 
1-ASY( jS*N>*W(MN»7)  )*<W(mn*i,3J-«(MN-i,3) ) )*0AL*ESY(jS*N)*(Y(KN,6>*FnlFF23J 
2(W(MN*NIP2.2)«L(MN-MIP2,2) )*W(MNi7)*(H(M)>NIp2,3).W(HN.NIp2,3) )*Q*FniFF  ?3« 
3S«hAK«(W(MN,5)*W(MN,7)>*H<MN,3)*DY(JS*N)>  FP IFF  235 

GC  TO  190  FDIFf 236 

180  wCuT  «  U(MN,5>*(  (w(mN*1,2)-W(MN-1i2)>*QAL-ESY<  jS*N)«U(‘lN.MP2,3>«FPIFf  237 

lH(fiN.NIP2.3)  )*QAS)  FDIFf  23e 

190  WCUT«AMAX1 ( WDOT « 0 , 0  )  miFf?39 

ACUN  ■  WDOT*MU/YC  FD l FF  240 

SSU  ■  (W(MN-2,5)»AC0N*W<MN,9) )*«2*<U<MN-2,7>-ACON*W(HK.,7) )**2*(W(MFniFf  241 
1N-2i6)-AC0N*W(MN,6> )**2«(W<MM-2i5)-AC0N*W(MN,5) )«(W(MK.2. 7>-ACON*wmiFF  24  2 
2(HN,7) )  FDIFf  243 

ALPHA  ■  SORT ( YC/SSQ )  FDIFf  244 

W  ( MN«2,  S )  ■  ALPHA*(u(MN-2,5)-AC0N*W(HN,5>  >  FDIFf245 

W ( HN*2, 6 )  •  ALPHA*(U(MN-2,6)-ACON*W(PN,ft) )  FDIFF246 

W ( MN«2#  7 )  ■  ALPHA*(u(HN*2,7)-ACON*H(pN,7) )  FDIFF247 

200  PCfcR  •  .TRUE.  FDIFf  24f> 

RHU  ■  W ( MN-2 , 1 )  FDIFF249 

E  *  MHN-2,4)  FDIFF  250 

P  *  PRS<RHO,E)  FDIFF251 

02  ■  PH*P*PE/RhO»*2  FD1FF252 

IF  ( C2 . GE . 0 ■ 0 )  GO  TO  240  FDIFF2S3 

WRITE  (6,300)  HM2.N.HAT,ESY(JS*N),AK7, (W(MN-2»K),K  •  I.KMaX)  FDIFF25« 

GC  TO  230  FDIFF 252 

210  IF  (NE10R.LT. 240)  Go  TO  230  FD JFF25P 

L ( HN )  ■  2  FDIFF257 

DO  220  K  ■  l.KpAX  FDIFf 256 

220  W(MN«2,K)  ■  N ( PN , K  )  FDIFf  25g 

GC  TO  260  FDIFF  260 

230  BSAVE  ■  B  FDIFF261 

CALL  ONESTP  ( M , n )  FDIFF262 

B  *  BSAVE  F D I FF 263 

GC  TO  260  FDIFF264 

240  C  *  SORT ( C2)  F DIFF266 

UC  ■  (ABS(W(HN>2.2)-ASY( JS*N)*W(MN«2, 3 ) >*F I GF ( JS.D )  *C)*DAX  FDIFF266 

VC  ■  (A0S(W(MN.2,3))*C)«ESY(JS*N)*DAY  FDIFF267 

SB  «  AHAXl(UC.VC)  FDIFF26R 

IF  (SR.Lfc.SBH)  GO  TO  250  FDIFF269 

SBH  ■  SB  FD I FF  270 

JS0  ■  HH2  FD I FF  271 

JSU  ■  N  FDIFf  272 

250  CONTINUE  FDIFF  273 

BS  •  AK*S8  FDIFF274 

IF  (BS.Gfc.0.9)  WRITE  (6.290)  HH2, N, AKT, BS. MAT, ( W ( HN.2.K ) , K»1 , KHAX )FP I FF 27? 


Ill 


IF  <HS,r,fc,l,0>  GO  TO  230 
260  CONTINUE 

DC  270  N  ■  t » N j 
JJ* l JS*(N-1)«N JP2 
DO  270  M  ■  1 , N I 
MMJJ*M 

L(HN)  •  t C MN*2 ) 

270  CONTINUE 

DO  280  M  ■  2  #  N I  HI 
280  L< l J8*H)  ■  L 1 1  JS*?*n I P2*H ) 

FH*T(22»H*T)  ■  CFl/SRH 
IMaT(B|H»T)  ■  I  SB 
IhaT(9|M*T)  ■  JSB 
RE  I  URN 

'  290  FORMAT  ( llH  AT  POINT  <  13, lH, I?,l6M)  IN  DIFFP  *T  T»ro,S 

i  ,5.SX«HMAT»I2/3H  W«76l5.5)  y  ROUND 

300  FORMAT  < llH  AT  POINT  < U, 1H. IS u 2?El5  5 ) 
1FF^X4HMAT»I2#3x<hESV«F9,5,3)(2MT»F9i5/3H  M»7tl  ,  > 

END 


FDIFF276 
FDIFF277 
FDlFF  278 
F01FF279 
FDlFF  2H0 
F  D I FF 281 
FDIFF2B2 
FD1FI ?8T 
FD1FI ?B< 
FDlFF  2BB 
FDlFF ?H6 
FDlFF  2H7 
FDlFf ?BR 
FD1FF2B9 
FD1FF2VD 
,5XlSHST*B*F9FDlFF  29’. 

FD1FF292 
SPEED  IN  FDIFDlFF ?93 
F D I FF  294 
FDlFF  29b 
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SUBROUTINE  ONESTR  (Il.JJ)  ONtSTP  2 

COMMON//  M ( 2200  <  7  >  #  L  < 2200 )  IN„zb  I 

COMMON/SNDCRS/  WB!<109»B,7>.PBI(109,*>,!ND<109.9>«  ENOCHS  2 

1NBJ(78,0,7>,PBJ(78,A>,JND<78,«>  BNUCPS  3 

COMMON/MSHrCN/  Y<78)»DY<7B),DYA(78)»ESY(?8),YSE<7P)*ESYA(78)»  MSHFCN  2 

lYStA(7d>,ESYE<78),E!GF<78),ASY(7B>,AYY(78>,ASYA(70>  l 

COMMON  /HATARR/  NMAT,IMa,(12,§),FHAT(23,5>.MAT  MaTaHR  2 

COMMON  /COMVAL/  KT,AKT#DT»OTMIN»ITER,NE!PR»!ROINTiERR,ERS.EPSl»RDICnMVAL  2 

lSi  IOP,DAL»KMAX,PORG,PSCL,LB,LF  „  „E°?Vf,L  l 

COMMON  /HATVAl/  A*,AY,CFL,V!8»VIST,MU,YC,RHO,XO»PO,TO.XZ.A.R.ABL.OMaTvAL  2 
1 ABu, CHAN, UMAX, F ACT. ANQ.AF.SRH.AL.AS.AK, MAI, HAS, HA«, OAL, OAR. OAK, DAXMATVAL  j 
2,OaV,MOAX,HDAY.OAX2.DAY2.HDAXY,ODAXV,DTR,HALFMU.TWTCMU.FRTCMU,OOVMMATVAU  a 
3U,iRE0TM,NI,nJ,NFmay,!S,JS,!JS,IBS,!8B,JSR.N!Mi,NJM1,RD;nd1.NE,nE1MaTvAL  b 

4,K>,NIP2,NTR  «*JVAL  o 

COMMON  /PRESS/  POER.PR.PE.MATNO  P  n 

COMMON  /DERI/  RT,UT,VT,ET.S11T,812T,S22T 

COMMON  /0ER2/  RTT.UTT,VTT,ETT,S11TT,S12TT,S22TT  ONtSTPll 

DIMENSION  WW  (  7 ) ,  WT(7),  WTT(7) 

DIMENSION  MSA ( 7 ) ,  WSB<7),  WSAA<7),  WSBB(7>.  WSaB(7)  0NtSTPl3 

ECU  I  VALENCE  <RT.MT(t>>,  <RTT,WTT(1>>  0NESTP14 


REAL  KX.KZ 

LOGICAL  axis 

REAL  MU.MUMMS.MUPhS 

LOGICAL  PUER 

HAX  ■  0 . 5*AX 

HAY  ■  0 . S* AY 

I  *  I! 

J  *  JJ 

IJ*IJS*(J-U«NIP2*I 
IP/  ■  1-2 
AXIS  ■  .FALSE, 

IF  (J.E0.2)  AXIS  a  .TRUE, 
Al  ■  FLOAT! I-3)*AX 
AJ  ■  FLOAT! J-2)*AY 
DJ  ■  ESY! JS*J)*OY( JR*J) 

DO  10  KK  ■  1 , KMA X 
MM(KK)  ■  M<IJ,KK) 

10  CONTINUE 

PCfcR  «  .TRUE. 

PP  •  PRS!MH(1),WR!4)  ) 

PPH  a  PR 
PPE  a  PE 

JPU  I  N't  a  NEIBR/16 

IPOINT  a  NEIBR»16«JP0INT*1 


maTval  O 

PRESS  2 
ONbSTPl 0 
ONtSTPll 
ONtSTPl? 
ONtsTPl3 
0NESTP14 
ONESTP1S 
ONtSTPl* 

0NtSTPl7 

ONtSTPlfl 

0NCSTP19 

0NtSTP20 

0MESTP21 

0NESTP22 

0NfcSTP23 

0NtSTP24 

0NESTP25 

0NERTP26 

0NESTP27 

ONESTP2B 

0NESTP29 

ONESTP30 

0NtSTP31 

0NESTP32 

0NESTP33 

ONESTP34 

0NESTP35 

0NESTP36 

0N2RTP37 

ONLSTP38 


JPO!NT  s  JPATNT  +  1  0Nfc$TP*S9 

GO  TO  (20, 40, 20, «0,l20,S0. 120. 80, 20, 40, 20, 40, 120, 80, 190,00 ) •  IPOINONESTP40 
lT  0NESTP41 

USX  IS  U  SUB  X  UXX  IS  U  SUB  XX  UY Y  IS  U  SUB  XY  0NESTP42 

USY  IS  U  SUB  Y  UYY  IS  U  SUB  YY  0NtSTP43 

UT  IS  U  SUB  T  UXT  IS  U  SUB  XT  UYT  IS  U  RUB  YT  UTT  IS  U  SUB  TT  0NtSTP44 
SECTION  100  IS  FOR  WHEN  NEITHER  <JP,J>  NOR  C I H ,  J )  IS  MISSING 


20  DO  30  KK  ■  l.KHAX 

NSA(KK)  a  <W(!j*1,KK>-W<IJ-1,KK)>*HDAX 

MS A A { KK )  ■  (M( I J*1,KK)-2,0*WW(KK)*H( IJ-1,KK))*DAX2 

30  CONTINUE 


0NESTP45 

0NLSTP46 

0NESTP47 

0NESTP4B 

0NESTP49 

ONESTP50 
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PI  ■  PHS(H(IJ*1j1)»W(IJ*1,4)) 
pRl  a  PR 

PEl  »  PE 

P2  ■  PHS( H ( IJ-1# 1) i u ( l J*1 »  4  ) ) 

PR2  *  PH 
PE2  a  PE 

PSA  ■  (Pl*P2)*HDAX 
PR  S  A  «  (PR1-PR2)*hDaX 
PEb  A  «  <Pfcl«pE2)*HDAX 
PAA  a  <P1-2.0«PP»P2)«DAX2 
DElX  >  AX 
GC  TO  160 

40  N  *  JND(JS*J,1) 

DC  50  A  •  2,N 

IE  <  A  1  , Lfe . PB J t JS* J* K ) )  RO  TO  60 
50  CONTINUE 
60  K 1  *  PbJ< JS*J,KJ-AI 
K2  ■  AX 

'.E  (Kl  ,  L T  . RD  I  S* AX  )  00  TO  680 
DElX  a  K1 

DK  a  1,/(K1*K2*(K1*K2> > 

SKI  a  DKaKl«*2 
SK2  a  0KaK2*.2 

Kl  »  2,«Kl*nK 
K2  3  2,»K2*nK 
DC  70  KK  ■  1.KH.AX 

WSA(KK)  a  SK2*<W0j(jS*J.K.KK>-WH(KK))*SK1*(WW(KKI#W(1J-1»kK)) 
HSAA(KK)  ■  K2*(WBJ( jS*J,KfKK)-WM(KK))-Kl*{MW(KK)aW(IJ«i;KK)> 


0MESTP51 

0NfcSTP52 


0NfcSTP53 

0NESTP54 


0NESTP55 

0NESTP56 

ONtSTP57 

0MtSTPi>6 

0NtSTP59 

0Nt?TP6'l 

0MESTP61 

ONtSTPftP 

ONfcSTPftJ 

0NkSTP6< 

0NESTP65 

0NtSTP66 

0NtSTP67 

0NtSTP68 

0NtSTP69 

ONfcSTP70 

0NESTP71 

ONESTP72 

OMESTP73 


0NESTP74 

ONESTP75 

0NtSTP76 

ONESTP77 

0NtSTP78 


70 


60 


90 

100 


CONTINUE 

PI  ■  PHS(W0J( JS4J.«.1>»«BJ< JS*J»K,4))-PP 
PHI  a  PR.PPR 
PEI  a  PE-PPE 

P2  a  PP-PRS(W( IJ-1, 1),H< IJ-1, 4)1 

PR2  a  PPH-PR 

PE2  a  PPE-PE 

PSA  a  SK2«P1*SK1*P2 

PfibA  a  SK2*PRl*SKi «PR2 

PEbA  a  SK2*PEl*SKl*PE2 

PAA  a  K2*P1»K1*P2 

GO  TO  16u 

N  3  JNUUSaJ.l) 

DO  90  K  a  2, N 

IE  (At ilEiPBj<jS*J«K) )  GO  TO  100 
CONTINUE 

Kl  »  PUJ( JS*J»K)«AI 
K2  ■  Al-PHJj  JS*J#K-D 

IE  (KliLT.RDISaAXl0R.K2,LT.RPIS*4K>  GO  TP  680 
DEUX  a  AMlNl ( Kl i K2 ) 

DK  a  K1«K2 
SKI  a  Kl/tK2*DK) 

SK2  a  K2/(K1*DK) 

Kl  ■  2,0/(Kl*DK> 


0NESTP79 
ONESTP80 
ONtSTPHl 
0NtSTP82 
0NtSTP83 
0NESTPB4 
0NfcSTP85 
0MtSTP86 
0NESTP87 
0NESTP88 
0NESTP89 
O’JfcSTP90 
0NESTP91 
0MESTP9? 
ONtSTP93 
0NtSTP94 
0N6STP95 
0*JtSTP96 
0NESTP97 
0NfcSTP98 
0NESTP99 
ONtSTlOO 
ONkSTlOl 
ONfcSTl 0  2 


K2  •  2,0/(K2*DK) 

DO  110  KK  a  l.KMAX 

HSA(KK)  a  SK2*(W3J( jS*JiK.KK)-WH(KK)>*SK1*(WW<KK) 


OMfcST103 

OMfeSTIO* 

»WRJ( JS*J»K-i »KK )DNtST105 
ONfcST 1 0  6 
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nil  H  5  A  A  (  KK  >  ■  K1MW8JI  jS*J.K,KK).HW(KK1).K2*(HH(KK)-wBj(  JS*J 
PI  •  PRSHBJ(  JS*J.K.1),WBJ(JS*J#K,4))-PP 
PRl  »  PR-PPR 
PEI  •  PE.PPF 

P2  •  PP-PRS(WBj( JS*J»K»l,j  ),"RJ(JS*J,K-1,4) ) 

PRc  »  PPR-PR 

PE2  a  PPfc-PE 

PS*  ■  SK2»P1*SK1»P2 

PfisA  «  SK2«PRl*SKl*PR2 

PESA  *  Sk2«PE1*SK1*pE2 

P*a  a  K2*P1-K1*P2 

GC  TO  160 

120  N  s  JNU  (  Ji»*  j,  1 ) 

DC  130  K  ■  2#N 

IE  (A! ,LT.PBJ< jS*J.K1 )  00  TO  148 
130  CONTINUE 
140  K  =  K-l 

K2  *  AI-RHJC JS*J,K) 

Kl  *  AX 

IE  ( W  2  ,  L  T  •  RD I S*  A  X )  (50  TO  680 
DElX  a  K2 

DK  •  1,/(K1*K2*(<1*R2) ) 

SKI  ■  UK*Kl*«2 
SK<;  *  UK«K2*«2 


•  K * 1  *  K K > ) ONfcST 1 0  7 
ONfcSTlOb 
ONfcST 1 0  0 
ONfcSTiin 
ONfcST 111 
ONfcST112 
ONfcST  11-5 

ONfcST 11* 
ONfcST lib 
ONfcSTll* 
ONfcST 117 
ONfcSTll" 
ONfcST lly 
ONfcST 1 2  C 
ONfcST 1 21 
0NfcST122 
ONfcST 123 
ONfcST 124 
0NfcST12N 
0NfcST126 

ONfcST 1 27 

0NtSTl2fi 
ONfcST 12^ 
ONtSTlSn 


Kl  •  2 | *K1*0K  ONfcST 131 

K2  «  2 i *K2*DK  0NfcSTl32 

DC  150  KK  ■  l.KMAX  0NfcST133 

WSA(KK)  ■  SK2*<W< IJ*1.KK)-WH(KK))*SK1*(WW(KK)-WBJC JS*J,K,KK) )  0NfcST134 

KSAA(KK)  *  K2*(W<  IJ«1,KK)-WU(KK>)»K1*(Hn{KK)-WBJ(  JS*J.K',Kk>)  ONfcSTlJ'S 

150  CONTINUE  ONbSTlifc 

PI  *  PRS(R< u*l,l),w< !J*1,4))-PP  0NfcST137 

PRl  ■  PR-PPR  ONfcST 130 


PEI  «  PE-PPE 

P2  ■  PP-PRS(W4J(JS*J.K,1),WBJ(JS*J#K,4>) 

PR<!  i  PPR-PR 

PE2  *  PPE-PE 

PSA  ■  SK2*P1-SK1*P2 

PRSA  a  SK2*PRl*SKj *PR2 

PEiA  a  SK2*PEl*SKi«RE2 

PA  *  a  K2*Pl-Kl*P2 

160  GO  TO  <170, 170,190,190, 170, 170,190,190, 230, 230, 270, 270, 230, 
1,2/0),  IPOINT 
170  DC  180  KK  a  l.KMAx 

HSa(KK)  1  <U< Ij*NlP2,KK)-W<  I J-NJP2, KK ) )*HDAY 
WSdB(KK)  »  <W< I J»NIp2,KK)-2,0*HW<KK)*W< IJ-NIP2,KK) >#n*Y? 
180  CONTINUE 

PI  a  PNS ( W  <  I  J*M!P?,i  ) ,W< I J*NJP2,4) ) 

PRl  a  PR 
PEI  a  PE 

P2  *  PHS<w< IJ-NIP2.1  ),W< IJ-NIP2.4)) 

PR2  a  PR 
PE2  a  PE 


ONfcST 139 
ONfcST 140 
ONfcST 1 4 1 
0NtST142 
0NfcST143 
0NLST144 
ONfcST  14t> 
0NtST146 
23C,2700NfcST147 
ONfcST 1 4b 
0NfcSTl49 
ONfcST 150 
ONfcST 151 
ONfcST 152 
ONfcST 150 
ONfcST 15* 
ONfcST 155 
ONfcST 156 
ONfcST 157 
ONfcST 158 


PSb  a  <Pl-P2)*HDAY 
PRSB  a  (PRl-PR2)*WDAY 
PESB  «  <PE1-PE2)*HDAY 
PBb  a  <P1-2,0*PP*P2)*DAY2 


0NfcSUt>9 
ONfcSTl60 
ONfcST 161 
ONfcST 162 
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UElY  *  ay 
UC  To  J3U 

190  N  *  JND< IS*!M2,1) 

DC  200  K  ■  1,N 

IF  ( * J i Lfc i PB I ( I S*  I  M?  i  K ) )  00  TO  210 
200  CONTINUE 

210  Kl  •  PHI(IS*IH2,K)-*J. 

K2  ■  AY 

IF  C  K 1  ,LT ,RDIS*AY)  00  TO  600 
DK  ■  l(/(Kl*K2«<Kl*K2>> 

DELY  ■  Kl 
SKI  ■  UK*Kl#*2 
SKt  ■  0K*K2**2 
Kl  ■  2,*K1«DK 
K2  ■  2 1  *K2*DK 
DC  220  K*  ■  l.KMAX 

WSb<KK)  ■  SK2*(WBI  <  lS*IM2,K,KK)»WH(KFn*SKl*<tlW(KK)-Wi  1J-NIP2 
WSafcUKK)  ■  K2MW0I  (  |S*IM2.K.KK)-MK(KK)>-K1*«WW(KKI-W{  ;  J»Hjr2» 
220  CONTINUE 

PI  *  PHSI*BKlS*lM2,K,l),WB!US*IM2,Ki4))-PP 
PR  1  ■  PR-PPR 
PEI  ■  PE-PPE 

P2  «  PP-PHS(H< I J-NIP2.1 1  ,W< l.l-NIP2|4) ) 

pfi<!  »  PPH-PR 

PE2  ■  PPfc*PE 

PSb  •  SK2*P1*SKJ*P2 

PRbB  *  SK2*PRl*SKl»PR2 

PES9  *  SK2«PE1*SK1«PE2 

PBb  •  K2*P1-K1«P2 

GC  TO  J30 

230  N  *  I  NO ( I S* I  m2, 1 ) 

DC  240  K  ■  1 , N 

IF  (AJ,LT,PBI<IS*IH2.K))  00  TO  250 
240  CONTINUE 
230  K  =  K*1 

K2  ■  A  J-PH I ( IS* I  M2, k ) 

Kl  ■  AY 

IF  (K2,LT,RDIS»AY)  GO  TO  600 
DK  ■  1  ,/(Kl#K2«(Kl*K2) > 

DELY  ■  K2 
SKI  «  DK*Kl«*2 
SK2  ■  DK«K2*«? 

Kl  ■  2,*K1«DK 
K2  ■  2 i *k2*DK 
DC  260  KK  ■  l.KHAY 

MSb(KK)  ■  SK2*IJJ(  I  J*NIP2,KK)-MH(KK)  )*SKl*(MH(KK>»MBJ { IS*IH2»K 
WSbB(KK)  ■  K2*(W(  I  J*NIP2»KK J-WW(KK)  >-Kl* < WH (KK ) -HB I ( IS*|M2»K, 
260  CONTINUE 

PI  ■  PRS< u ( I J*NI P2, 1 ) »  W ( IJ*NJP2,4>  )«PP 
PRl  ■  PR-PPR 
PEI  ■  F*E-PPE 

P2  »  PP-P«SIWP1(IS*IM2,K,1),WBI(IS*IK2,K,4)) 

■  PFR-PR 
•  PPfc-PE 

■  SK2»P1*SK1*P2 


PR2 

PE2 

PSb 


PRSB  «  SK2*PRl*SKi*PR2 


ONtST 163 
ONt ST  16  4 
ONbST 166 
0NtST166 
0NtST167 
0NkST168 
ONfcST109 
ONt ST  1 7  0 
ONt ST  1 71 
ONtST 1 7? 
ONtST 1 73 
ONtST 174 
ONtST 1 7b 
ONtST 176 
0NkST177 
ONtST 1 7P 
, KK  )  ) ONtST 179 
AK)>  ONtSTIBO 
ONtSTIBl 
ONtST lfl? 
0NtSTlB3 
ONtSTlB4 
ONtST 1 85 
ONtST 1B6 
ONtST 187 
ONtSTIBP 
ONtST lfl9 
ONtST 190 
ONtST 191 
ONtST 192 
ONtST 193 
OMtSTIRA 
ONtST 195 
0NkST196 
0NtST197 
0NtSTl9H 
ONtST 199 
0NDST20  0 
0NEST20 1 
ONEST202 
ONEST203 
0NtST204 
ONtST205 
ONHST206 
ONtST207 
,KK) )ONtST20B 
KK>)  ONEST209 
ONtST210 
0NtST211 
0NtST212 
0NEST213 
0NtST214 
0NEST215 
0»'tST216 
0NEST217 
0NEST21B 
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PEaB  ■  SK2aPEl*SKl*PE2 
PBd  a  K2*Pl-Kl«?2 
GC  TO  33 0 

270  N  *  1NDUS*JM2,J> 

00  280  K  ■  i,N 

IE  ( A J( Lt i PR  I ( IS* 1 M?< K ) )  GO  TO  290 
280  CONTINUE 

290  K1  ■  PBM IS*IM2,K)-*J 

IE  <K1 ,LT,RDIS*AY)  00  TO  880 
IE  <J,bQ,2>  GO  TO  310 
K2  ■  AU-P8I CISa|H2«K*l) 

IE  (K2,LT,RDIS*ATI  00  TO  680 
DEL Y  a  AMlNl(Kl|K2) 

DK  •  l./<KlaK2a(KlaN2>) 

SK i  a  0KtKx**2 
SK £  a  DKaK2a*2 
K1  ■  ? | *Kl*DK 
K2  ■  2  |  »«2*DK 
DO  300  KK  a  i.KPAX 

WSa(KK)  «  SK2*(WBmS*IM2,K,E‘K)-NW(KK))aSKl*(wH(KK)-WR 
l.KK)  ) 

WSUB(KK)  a  K2*(WBI  ns*M2,K,K^)-HW<KK))»Kl*<WW<KK)-yBI 
IKK  )  ) 

300  CONTINUE 

PI  ■  PHSl*BI(IS*I*2.K.l>«WBI<I$*lM2,K.4)>-PP 
PR  X  a  PR.PPP 
PEI  a  PE-PPE 

P2  ■  PP-P'»SUBI<IS*IM2,K-1#1).HBIUS*IH2,K-1,A)) 

PR«i  a  PPR-PR 
PE2  a  PPE-PE 
PSB  a  SK2*P1*SK1*p2 
PRSB  i  SK2«PR1*SKi«pR2 
PE  SB  a  SK2*PE1*SK1*PE2 
pea  a  K2#P1-K1*P2 
GO  TO  330 
310  HSB(l)  «  0. 

WSa<2>  a  0. 

wsa(3)  a  WBI  ( IS*IH2,K,3)*0AY/K1 

DELY  a  K1 

SKI  a  2.0/(Kl*Kl> 

DO  320  KK  a  i.KMAx 

MSaB(KK)  a  (WBI (  I  S* ! M2# K , KK ) - WW < KK >>aSKl 
320  CONTINUE 
PSa  a  0.0 
PRSB  a  0, 

PESB  a  0. 

PBb  a  (PRS(WBI(lS*lM2.K,l),WBmSaIM2,K,A))-PP)*SKl 
330  PDfcR  a  .FALSEi 

GO  TO  (540|360#AOO#360*340»420*400,4CO#38D*380,440,520 
l#6tt0 )  |  JPOJNT 
340  DO  390  KK  a  l.KHAX 

HSAB(KK)  ■  ( (W(I  J*NIP2al#KK)-WnJ*NlP2»l»KK))*HDAII«WSA 
390  CONTINUE 

PI  a  PHS(W(IJ*NIP2M.1).M<IJ*NIP2*1,4>> 

P2  ■  PHS(W<IJ*HIP2-1*1).M(IJ*NIP2-1,4)) 

PAd  a  (<P1-P2)*H0AX-PSAI*DAY 


0NfcST2l9 

ONtST?20 

0NEST221 

0NEST222 

0NtST?23 

QNEST224 
0NbST22b 
ONfcST  226 
0NtST227 
0NtST22o 
0NbST2?9 
0VEST230 
0NEST231 
ONkST  23? 
ONtST?33 
ONEST234 
0MbST23b 
ONES! 236 
0NEST237 
I  t  JSaIK?.K-lONfcST23R 
0NEST239 
<!'S*IP2.K-1.0NbST24U 
ONEST241 
0NtST?42 
0NEST243 
OMtST244 
O'lbST  24b 
0NEST246 
0NtST247 
0NEST248 
0NEST249 
ONtST250 
0NEST251 
ONtST252 
0NtST2b3 
0MEST254 

0MEST255 
0\fcST256 
ONEST257 
0SfcST258 
0NEST259 
ONEST260 
ONtST  261 
0NtST262 
0NEST263 
0NEST264 
0MEST26b 
0NEST266 
,34ni50C,4600NbST267 
0NEST26B 
0NEST269 
{KK))*CAY  ONbST270 
ONfcST271 
0NEST272 
0*ibST273 
ONEST274 
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'  ( USACKK  »-CMt I J-N!P*»1»KK >-WC  I  J-KIP2-1*WK>  »«HOA*>*DAV 


CiC  To  960 
360  DO  370  KK 
MSA0(KK) 

370  CONTINUE  „  _  ... 

PI  ■  PHS(W<!J»NJP2M#1)»WUJ*NJP2*1»4)) 

P2  ■  PNSt«<  !J-NJP2-1i1>*W«IJ-HIP2»1*4>) 
p A b)  ■  (PS*-<Pl-P2)*wOAX)*DAY 

CjC  to  960 

"o  . . . •*"«*« 

J90  j  J*H I. ?•.».)> 

P2  ■  PRSH<  I  J-N!P2-1*1)  »W<  I J-N I P2-1  •  4  >  ) 

PAb  b  (PSb-<Pl-P2)*MDAY)*DAX 
GC  TO  960 

400  SC5AJ}!K)K-’(iiu>N,P2n.KK)-W<!J-N!P2*l.KK)).H0AY-hSP<KK)>.DAX 

410  CONTINUE  ...  „  ... 

PI  B  PRS(W(  IJb-N1P2*1»1>»w<  IJ»HIP2*1»4>) 

P2  s  PRS<W(|J-NIP2*1#1>»WUJ-NIP2*1»4>> 

PAb  b  J (Pl-P2)*HDAY.P3B)*nAX 
GO  TO  960 

420  DK  ■  -HOAYbDAX 

430  WSABllKK)  B  (W<IJ*NIP2*1»KK)*'-'(I  *KK)"2.0*Hw(X 

lK)-AX«AX*WSAA(KK)-AY«AY*WSBn(KK) ) *DK 
PI  b  PRS<4(U-NIP2*lil>*Mnj-NJP2*l«4)) 

p2  «  PHSIM  !  J^N  1 P2-7  1 1 )  I  J+NlP2«l#4> ) 

PAb  b  (  PJ,*P2-2,  ObpP«AX*AXbPAA-AYbAY*PBB  JbDK 

GO  TO  960 
440  DK  ■  HDAY*DAX 

DC  490  KK  •  i.KMAX  .  n*HU(K 

450  MSAB(KK)  ■  (H(IJ*nIP2*1.KK)*W(IJ-NIP2-1,KK>  2.0  « 

1K)-AX*AXBWSAA<KK)-AY»AY*WSBB<KKn*DK 

PI  b  PRS(M(  IJ*NIP?*1#1)»W< I J^N Ip2*l#4) ) 

P2  ■  PRS(W(IJ-NlP2*l.l).wnj-NIP2-1.4)> 
pAb  b  (Pl»P2  ’,0*PR.AX*AX*PAA-AYbAY*pBB)bDK 
GC  TO  960 
460  DK  ■  HUAY’DAX 

1  AY*(^  B(KK)*HAY*4SBP(KKn  )*DK 
PAb  b  <PRS<W<IJ*NtP?*l#i>»W< I J*Nipz*i»4n 

1*PAA)-AY*(PSB*HAY*PRB) >*DK 
GC  TO  960 

480  DK  ■  -HDATbDAX 

DO  490  KK  b  l.KMAX 


ONEST279 
0NtST276 
ONEST277 
ONfcST278 
ONfcST279 
ONkST  28f> 
ONfcST2Bl 
ONfcST?B2 

QNfcST2B3 
ONkST2BA 
ONkST2B9 
0NfcST2B6 
0NkST?B7 
ONkST  2BK 
0NfcST2B9 
0  N  fc  S  T  2  9  0 
ONkST  291 
ONfcST292 
0NfcST2V3 
0NfcST294 
0NfcST295 
0NkST296 
0NfcST297 
ONfc5T29H 
0NfcST299 
ONfc?T30n 
ONkST301 
ONfcST302 
ONkST303 
ONkSTSOA 
ONkST305 
ONkST306 
ONfcST307 
ONfcST30Q 
0NkST3Q9 
0NfcST31U 
ONfcST311 
ONfcST3l2 
ONfcST3l3 
0NfcST3l4 
0NkST3l5 
0NfcST316 
,pp.*X* (PSA*HAXOMbST3l7 
0NfcST31fi 
0NfcST319 
ONkST32<’ 
0NfcST321 


490  HS A0 ( KK  )  ■  <W< I J • M I P 2 


*l,KK)-HH(KK)-AX*(WSA<KK)*HAX*MSAA<K0NfcST322 


j  Hop  \T\r\  t  ”  vm 

1K)>*AY*<WSB<KK).HAY*WSB8<KK)))*DK  *l'.4>)-PP’ 

PAb  ■  (PHS(W<  I J-NIP2  *1,1>»W<I J-MP2  1 

X(PSA*HAX*PAA)*AY*(PSB-HAYbPBB) >*DK 

GO  TO  960 

500  DK  ■  -MDAYbDAX  _ 

DO  5^0  KK  *  1*IJH*X  ,  kk>-WW<KK)*AX*<WSA(KK)-HAX*WsAA(KK) )-0NtST329 

5X0  WSAB(KK)  ■  (Wt I J*nIp2  -1 # KK < KK >*AX  a  0NkST33n 

XAT*(KSb(KK)*HAY«4SBO(KK> ) )*0K 


0NfcST323 
AX*ONkST32< 
0NkST325 
ONkST  3, ?6 

0NkST327 
ONkST  32B 
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PAB  a  ( PHS( W( I J*N I P»  -l.i>,W< I J*N!P* 
1*PAA)«AY#<PSB*HAY*PBB> )*DK 
OC  To  960 
920  DP  ■  HDAV*DAX 

OC  930  KK  ■  l.KHAX  „  ,  4 

930  HSaB(KK)  ■  ( W( 1 J*N|P2  -i,KK>-WH(KK)*A**<W«A 

1KH*aY*<WSB(KK)-HaY*WSBH(KK)  ))*DK 
pAB  ■  t  P  H  S ( W ( I J-NIP?  -lil) ,W(lJ»NfP2 

l<PbA-HAX*PAA)*AY*<P8B»HAY*PBR) )*DK 
GC  TO  960 

940  DC  550  KK  ■  l.KHAX 

hSaB(KK)  ■  <W< I J*NIP2*l»KK).Wt I J*N|P2»1.KK)-H« IJ 
1IP2*1,KK))*Q0AXY 
950  CONTINUE 

PAd  ■  <PHS(W< 1 j*NfP?  *1.1 ) » W<  I  J*MP2  *1.4)) 
1  “1  # 1 ) » H ( J J*N I P2  «1.4))"PBS(W(IJ»K!P2 

2-MP2  *1,4)  )*PRS(WM  J-NIP2  -l.lJ.WdJ 

3,4) ) >*UDAXY 


960  RR  ■  H 

W(l> 

UO  *  HW(2> 

VV  •  ww ( 3 ) 

EE  ■  hw<4) 

SU  ■ 

wu(5> 

SI  2  ■ 

W  W  (  6  ) 

S22  ■ 

ww(7) 

DR  ■  1 

,/RR 

Til  ■ 

Sll-PP 

T22  ■ 

S22-PP 

RSA  ■ 

WSA ( 1 ) 

USA  ■ 

WSAC2) 

VSA  ■ 

HSA  <  3 ) 

ESA  a 

RSA ( 4 ) 

SUA  « 

WSA(9) 

SI  2  A  ■ 

WSA ( 6  > 

S22 A  « 

HSA ( 7 ) 

RSB  a 

MSB ( 1 ) 

USD  a 

MSB ( 2 ) 

V  Sd  a 

MSB ( 3 ) 

ESd  a 

MSB  <  4 ) 

SUB  • 

i  WSB ( 5 ) 

S12B  • 

>  WSB ( 6 ) 

S22B  a  WSBI7) 

RAA  a 

HSAA(l) 

UAA  a 

MSAA ( 2 ) 

VAA  a 

WSAA ( 3 ) 

EAA  a 

WSA A ( 4 ) 

S11AA 

a  WSAA (5) 

S12AA 

a  WSAA C 6 } 

S22AA 

a  WSAA ( 7 ) 

RAB  a 

HSAB(l) 

UAU  a 

HSA9 ( 2  > 

VAU  a 

WSAB ( 3 ) 

EAB  a 

MSAB  (  4  ) 

S11AB 

a  WSAB ( 5 ) 

S12AB 

a  W  S  A  B  (  6  ) 

S22AB 

a  WSAB(7) 

-1.4>)-pP*AX*(PSA-MAX0NtST331 

0MtST332 
0NbST333 
0NfcST334 
0NEST335 
CKK)*HAX*WSAA(K0NfcST3J6 
ONtST &£7 
■1.4) )»PP*AX*0NfcST33fi 
0NEST339 
0NbST34D 
0NhST341 

P2*1'.Kk)*H<  I J*N0NbST342 
OVbST  343 
0NEST344 
Pf>SIU<  I  J*'  IP2  0NEST345 
*i;i).W(IJ  0NtST346 
K I p2  «lONbST  34  7 

0NEST348 
ONbST  349 
ONbST350 
0NbST351 
0NbST352 
ONbST  353 
0-  5ST354 
0NbST355 
0NEST356 
0NbST357 
C‘icST358 
0NbST359 
OMbST360 
0NbST361 
ON!  ST362 
0Wb3T363 
0NtST364 
0NbST365 
0NbST366 
0NbST367 
0NbST368 
0NEST369 
ONbST370 
0NbST371 
0NbST372 
0NbST373 
0NbST374 
0NEST375 
0NbST376 
0NBST377 
ONbST  378 
0NbST379 
0NbST380 
0NbST381 
0NbST382 
0NbST383 
0NEST384 
ONbST  385 
0NEST386 


119 


HPa  ■  hsuP(1) 

UBb  ■  *SHB ( 2 ) 

”8b  a  MSB8(3) 
kSU  ■  mSBU(4) 

SUBB  ■  4308(5) 

S12BB  •  HSBB  (  6  ) 

S22B0  ■  WSBB(7 ) 

Til*  ■  S11A-PSA 
T22A  ■  S22A-PSA 
TUB  ■  SUB-PSB 
T2<iB  ■  S22B*PSB 
TU» A  ■  SUAA-PAA 
T22A  A  a  S22AA-PAA 
TUAB  ■  S11AB-PA0 
T22BB  a  S22BB-PBB 
t)  *  ESY  (  JS*  J) 

BB  ■  YSE ( JS* J ) *D J 
BSt  a  fcSVE ( JS* J ) 

AP  ■  ASYUS*JJ 
AYt  a  A Y V «  JS* J ) 

Ml/PHS  a  MU*,5*(Sll-322) 

MUMPS  a  MU-,5*(S11»S22) 

UV  ■  UU-AP*VV 
UVA  a  USA'AP* VS A 
IT  (AXIS)  GO  TO  580 
EPHS  a  PP*S11*S22 
HS A  •  , 5a ( Sll A -S22A ) 

HSb  a  i  3#  ( SHB-S22B ) 

FAP12  •  ERTDMU-AP*S12 
S12TWT  a  S12-TWTDMU.AP 
T4I12  a  T4TDMU- AP«Sl2 
S12FRT  a  S12-Ap*FRTnMtl 
UVb  a  USb-AP*VSB-AYF»VV 
U V  A  A  a  UAA-AP*VAA 
UV AB  a  UAB-AP*VAB-AYE*VSA 
VIA  a  VSA*AP*US A 
STUV  o  512*USB*T22*VSB 
STU  a  U1-AP*S12 
STV  a  S12-AP*T22 
STUA  a  TUA-AP*S12A 
STVA  a  S12A-AP*T22A 
TS2PS1  ■  Dj*(2,*S22aSll) 

SIP  a  TWTDMU*DJ*VV 
SIPA  a  T4TDMU*DJ*VS* 

SJPB  «  TWTDMU*DJ*(VSB-BB*VV) 

RBU  a  HR*VSB*VV*PSB 

U6U  a  VVaUSB-DR*Sl2R 

VBU  a  VV*VSB-ORaT22R 

EAU  a  STU*USA*STV*V3A 

EBU  a  v V*ESB-DR*STUV 

SUBp  a  VV*SilB»Sl2*US8*TWTD!!U*VSB 

S220D  ■  W«S22B*Sl2aUSB-FRTDMU*VS8 

RT  a  .HRaUVA-UV*RSA-B*RBD-RR*VV*DJ 

UT  a  .uv#USA*CR*(STllAaDJ*S12)-B*UBD 

VT  a  -UV*VSA*DR*(STVA*TS2PS1)-B*VBD 

ET  ■  -UVaESA*DR*EAD-B*EfiO«VV*DR*DJ*ERHS 


ONbST  367 
OVbSTSBB 
0NEST3B9 
ONEST390 
0NEST391 
0NtST392 
0NEST393 
ONbST39A 
0NbST395 
0NbST396 
ONEST397 
0NEST398 
0NEST399 
ONbSTAOO 
ONEST401 
ONbST402 
ONbST  403 
ONbST404 
ONbST  405 
ONEST406 
ONEST407 
ONbST408 
OMEST409 
ONbST410 
ONbST  4(1 
ONEST412 
ONEST413 
ONbST  414 
ONbST  415 
ONbST  416 
ONbST  417 
ONbST  418 
ONbST  419 
ONbST  420 
ONbST  4J1 
ONbST422 
ONtST  423 
ONbST  424 
ONbST  425 
ONbST  426 


ONbST  427 
ONbST  428 


ONbST429 
ONbST  430 
ONbST  431 
ONbST  432 
0NbST433 


0NEST434 
ONbST  435 
ONbST  436 
ONbST437 
ONbST  438 


ONbST  439 
ONbST  440 
0NbST441 
0NEST442 
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PT  «  ri*pr*et«PE 

SUT  ■  -UV*SllA*f*Pl2«U«A-Sl2THT*V8A-B*SilR0-SIP 

SI <i T  •  -UV*S12A*HUPhS*VSA-AP*MUHH8*1JSA»B*<VV*S12B»MUHwS*USB] 

S2*T  •  -UV«S22A«TwTi2*USA*Sl2PRT*V8A-B«S22BD-S!P 

UVI  »  UT-AP*VT 

TliT  «  SUT-PT 

T22T  ■  S22T-PT 

HSI  ■  ,5«{SUT.S22Ti 

SIHT  «  TWTOMU*DJ*VT 


0NfcST443 
ONfcST  44  4 
OncST  44b 
ONfcST  446 
ONfcST  447 
QNfcST44tt 
ONtST  449 
ONtST  450 
OMfcST  451 


a  I  “  T  «  T*»TDMU*DJ*»T  UMC5M51 

RA I  ■  -RH*UVAA»2,«RSA*UVA-UV«BAA-B*<RR*VAB*R$ A* VSB*V$A*RSP*VV*RAB) ONfcST 4b2 

l-CJ»(RH*ySA*VV#RSA)  ONfcST  453 


3S1 1A*S22A ) ) 

PA  I  ■  HAT*PR«RT*PRSA»EAT*PF*r.T*PESA 


0NkST46l 
ONfcST  462 


r»  l  B  n  A  I  *rH*NT»rH3l*tlT  *rt*f,T*PC&4  UNCSI'Oi 

SUAT  ■  »UVA*SllA.UV«SllAA*FAP12*UAA-S12TUT*VAA-Sl2A*VUA-P*(VSA*SlONbST463 

Ue*VV*bUAB«Sl2A»iJSR-S12*UAR*THTDMU*VAB)-SlPA  ONfcST  46  4 

S12AT  »  »UVA*Sl2A-UV«SlPAA*HSA*VSA*M(JPHS*VAA»Ap«('4UKHS«!!AA-HSA*IJSAONfcST46,5 
VaA*Sl2B*VV*Sl?AR*HSA*USQ-Ml|MHS*UAB)  0\ltST4  6& 

S22*T  •  -UVA«S22A-UV*S22AA-TWTi2*UAA*Sl2FRT*VAA*St2A«VUA-P*( VSA*S?0NfcST467 

12e*VV*S22*B*Sl2A»US'»*Sl2«UAB'FRT0MU*VAB>-S!PA  ONfcST460 

UVAT  •  UAT-AP*VAT  ONfcST 469 

RB I  ■  -RH*UVA0-RSR«IIVA«UVn«PSA-UV*RAB«B*(PR*VPB*2;*PSR*VSR*VV*RBB)ONEST47O 
1-B!>E*RBD-DJ*(RR«VS0*VV*RSB“RP*RR«VV)  ONfcST 471 

UB I  ■  -UVB*uSA-UV*U4B*DR*(TUAB*AP*S12AB-AYE*S12A.DB*RSR*(STUA*DJ«ONfcST472 
1S12)*0J*(S12B-BB*S12) )-R*«VS'1»USB*VV*UBB-DR*(Si2BR.pR*RSB*Sl2P)  )-RONfcST4  73 
2SE*Ubn  ONfcST  474 

VE  r  a  -UVB*VSA-UV«VAB*DR*(Sl2AB«AP*(S22AB-PAB)-AYE*T22AaDR*PSB*STV0NfcST475 
lA*UJ*(2.*S22B*SUR-(2,*S22^Sll)*BB)-CR*RSB*TS2PSl»-B*(VSB«VSB*VV*V0NfcST476 

2BB-DR#{T22BB-DR*RSB«T22B)>-RSE*VBD  0NfcST477 

EBI  a  - - - - - -  *  . . . . 


ONfcST  471 
DJ*ONfcST472 
)-RONfcST473 
ONfcST  474 
ST VONfcST  475 
V* VONfcST  4  76 
ONfcST  477 
12B0NfcST47P 
( T2DNfcST47  9 


3RM6*VV«(PSB*SllB*S2?B)*VV*ERPS*(DR«RSB*PE))  ONtST  481 

Pet  ■  HRT*PR*RT«PRSR»EBT*PE*ET*PESB  ONfcST4b2 

SUBT  ■  *UVB*SUA.UV*SllAP*rAP12*UAB-Sl2TWT*VAB-S12R*VUA-AYE**S12*ONbST483 
1USA-TWT0MU*VSA)-B*( vSB*SllB*VV*SliBBaS12P*USB-S12*UBR*TMTnPU*VBB)-0NfcST484 
2BSfc*SU8D-S!PB  0NfcST485 


2B5fc*SliB0-SIPB  0NfcST4B5 

S12BT  «  •UVB*Si2A-UV*Sl2AB*MSB*VSA*MtPHS*VAB«AP*<HUPHS*:JAP-HSB*USA0NfcST486 
1>-AYE*MUMHS*USa-’B*<VSB*S12B*W  l2BB#HSB*USB-HUMHS*LBP).B«E*(VV*SlONfcST487 
22B-MUMHS«USB)  0NfcST488 

S22BT  a  .UVB*S22A-Uv*S22AB-TWT12*UAB*SlZFPT*VAB*Si2B*VUA*AYE«(S12*0NfcST489 
lUSA-FRTDMU*VSA)»9*(vSB*S22B*W*S22BB*S12P*USP*S12*UBB*FRTnPU«VBB) -ONfcST 490 
2BSfc*S2280*SlPB  ONfcST491 

RT I  a  -0VA*RT-RR»UVAT-RSA*UVT-UV*RAT-B*(PR*VPT*RT*VSB*VW*ReT*VT*RS0NfcST492 
1B)-DJ*<RR«VT*VV«RT)  ONfcST  493 

UT I  a  -UVT*USA-UV*UAT-DR*<SllAT-PAT-AP*S12AT-RT*Dl»*<STUA»si2*DJ>+D0NfcST494 

lJ*!>12T)-B«<VT*USB*VV*UBT-DRa{S12BT-0P*RT«Sl2B) >  ONfcST 495 

VTI  a  -VSA*UVT-UV*V4T*DR*(Sl2AT-AP«(S22AT-PAT>-DR*RT*«SYVA*TS2PSl)ONtST496 
1*DJ*<2,*S22T*S11T))-B*<VT*VSG*W*VBT-DR*(S22BT.PBT-BR«RT*T22B) )  ONtST 497 
ET I  a  -UVT*ESA.UV*f aT-OR*(  (TUT-AP*S12T>*USA*STU*UAT*(Sl2T»AP*T22TONfcST490 
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1 )^SA»bTV*VAT-DR*»T*EA0)»R*(VT*eSB*VV*|BT-DW«(T22T*VSfl*T2?«VBT*S120NtST4»9 

2T»USB*S12«UBT.DR*RT*STUV) )-nj*DB*(VT*6RHS*VV*(PT*SllT*S22T)-D  ONE  ST  501 

3SufTHS>.UVT.SilA-UV.8UAT*rABW*UAf-S12TMT*VAT-St2T.VUA-B«(Vf5110NfcST502 

i;;^TSil2lvTi8l;l!SC“«A?^3?I!I»*HjJi;!v!vABM^Hl*UAT.H8T*USAOJfcST50o4 

. - . 


lb»W*S2?»T»Sl2T«US8*Sl?*UHT.rRT0RU*VFT).S!PT 

DC  570  KK  ■  1 » KM AX 

W(1J“2|KK>  »  W(  I  J,KK)*AK«(WT<KK)*HAK*WTT(KK> ) 

570  CONTINUE 
GC  TO  600 

580  RT  «  -HR*USA-UU«RSA«2,*8*RR*V9B 
IjT  «  .UU*USA*DR*<T11A*2,*8*S12B) 

VT  ■  0, 

EAU  ■  UR*(T11*USA*2.*0«T22*VSR) 

ET  *  -UU*ESA*EaD 
PT  ■  RT *PR*ET*PE 

Si lT  «  -uU«SllA*FRTnMU*(USA«B*VBB) 

S12T  «  0, 

S22T  *  -UU*S22A-TwTnMU«(USA-P*V9B> 

RAl  ■  •RR*UAA*2 • *PSA*USA«UU*PAA*2 i*B* (RSA*VSB*RR*  AE > 


ONEST507 

ONtST5oe 

ONbST509 

0NbST5lu 

0NtST511 

0NbST5l2 

0NfcST5l3 

ONbSTSlA 

0VtST5l5 

0NtST5l6 

0NEST517 

0Nb3T51P 

0NbST519 

ONfeST520 

0NEST521 


-RR«UAA-2.*RSA*llSA.UU*rAA-2.*B*lH5A*VaB-«n-,»r,  n„^DC  .  „ c . ,nNt 52? 

UA  i  .  -USA.USA-UJ.UAA*DP.(TllAA.DR*RSA*TUA*2.*B*<Sl2AB-DR*RSA*S120NbST522 

*EA 1  .  .USA.ESA-Ud.EAA*DR.<TllA.USA*Tll.UAA-RSA.EAD*?..B.T?2A.VSP*T0NtST5R4 

1pA*ViBHAT*PR*RT*PRS4*EAT*PE*CT*PESA  0NbST527 

■  •USA*SllA«UU*SllAA*FPTpMU*jUAA»8*VAR)  0NbKT52« 

•UT  *USA"UU*UAT*DR*<SllAT«PAT*2 i *B«Sl2BT*DP**T*(TllA*2 ,  *B*S120NfcST533 

0NEST535 

!0T.6S.-i..lCE.t.D«.«SllT-fT..US..TU.WT.RT.E.D.2: . "’-'gJEHHJ 


SHAT 
S22AT 
VBi  • 
llBd) ) 
Sl<iBT 
RT  I  ■ 
UT  l  » 
10)) 

VT  I  ■ 
ET  I  « 


0NEST537 

0NtST53B 

0NltST539 

ONEST540 

0NEST541 

0N6ST542 


590 

600 


610 


1SUTT0«T-UT*SUA-UU«SllAT*FRTnMU*(OAT-B*VPT> 

S22TT  ■  •UT*S22A*UU*S22AT»THTnMU*(UAT"B*VBT) 

DC  590  KK  •  1.KMAX 

W  <  I  J»2 »  KK  )  ■  W(  I  J,KK)*AK#(HT(K'/0*HAK#HTT(KK)  > 

CONTINUE  „  . .  0NEST544 

o  *  vIS*aK*SQRT(<UVA«AX)»*2«(R*VSB*AY)**2>  0NfcST545 

. . .  ssi?S3? 

CONTINUE  0NfcST54P 

"MU2  i4icTj^t?U^*w7!:.2:7U*Z*W<IJ-2,6>-2*«<U-2.5»*wClJ-2.7>0N|!T5j9 

IF  (YIELD. LT.YC)  GO  TO  650  QNEST551 

K.I“.'K-8.!Sp5B..n«» . ""-"“"SSSS! 

l)«VSU)-(KM(5)*KW(7))*HWC3)*nJ  0NEST554 

GO  TO  630 
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620  MClJT  ■  WW(5)*(USA-a*VS6)  OWtST^bb 

630  WDUT*AMAXl(WDOT,0.0)  0NkST‘>!>6 

ACON  ■  . 5*WD0T*MU*AX/YC  OMtST5S7 

SSU  ■  ( W C I J-2 J 5 )  •  ACON*U ( I  J« 9 )  J«2#7)»ACON«H<  I J#  » >  >«*2*<W(  I  ONfcST5t>t? 

lJ-2,6)-AC0N*W( JJ,6))**2*<W<IJ-2,5>«AC0N*W(IJ,5>>*IW(lJ*2.7>-AC0N*W0NbST559 

2  (  I J. 7  )  )  OMbST560 

ALPHA  ■  SORT ( VC/SSQ >  O^bSTSBl 

DC  640  KK  ■  5,7  0MfcST56£ 

W(  1J«2|KK)  ■  ALPHA*(H< IJ-2,KK)-AC0N*W< I J, KK > )  ONbST563 

CONTINUE  0NEST564 

RR  •  HUJ-2,1)  °^|T5hb 

W(  I  J-2»2)  ONbST56t> 

W(IJ-2,3)  ONkST567 

W  (  I J“2«  4 )  0NbST56P 

..TRUE.  ONbST569 

PRSJWR.EE)  ONEST57  U 

ONbST571 
OfbST87? 
ONEST573 


640 

650 


UU  • 
VV  ■ 
EE  ■ 
PDtR 
PP  ■ 
C2  ■ 


ph*pp*pe/rr»» t 

IP  <  C2 1 LT  .  0  .  >  GO  TO  670 
C  =  SORT ( C2  ) 


UC 
VC 
SB 

IP  (SB.LE.SBM) 
SBM  ■  SB 
ISt)  ■  1M2 
jSb  ■  J 
660  CONTINUE 
BS  ■  AK*SB 
IP  (BS.LT..9) 
WRITE  (6,700) 
GC  TO  680 
WRITE  (6,710) 
L  (  1  J )  ■  2 
DO  690  KK  ■ 

W(  IJ«2,KK) 
CONTINUE 
RE 1UHN 


ABS(UU-ASY(  JS*J)*W)*EIGP(  JS*J>*C 
(ABS(VV)*C>*ESY(JS*J) 

AMAXKUC,  VC) 

GO  TO  660 


RETURN 


ONbST574 

ONbST575 

0NbST576 

ONEST577 

ONEST578 

rjNbST579 

ONEST5BO 

ONEST5B1 

ONEST5B? 

ONEST5B3 


670 

680 


690 


IM2.J,RR,UU,VV,  AKT,«AT 


IM2.j.AKT,IPOIfJT,BS,RR,UU,VV,DELX,DELY,ESY{jS*J),MATONbST5B4 

0NEST5B5 
ONbST5B6 
ONbST587 

i  k m A y  ONEST588 

W(IJ.KK)  0NbST5B9 

ONEST590 
0MbST591 
0NbST592 

700  FOHMAT  dlH  AT  POINT  ( 1 3 . lH, 1 2 , l7H)  IN  ONFSTP  AT  TbF9.5A8h  IP0JNT»0NbST593 

lI2.3X5HSTAB»P7,4,3X4HRH0»F7,4,3X2HU»F7l4,3X2HV»P7,4,3Y5WDELA»P5,3,0NbST594 

23X5HDELB*P5,3,3X8HB  SUB  R«F7 , 4, 3X4HMA T«  12 >  0NbST595 

710  FORMAT  (11H  AT  POINT  ( 1 2. 1H, 1 2, 33H)  IMAGINARY  SOUND  SPEED  I M  ONESTONEST596 
1P3X4HRH0»P9.5.3X2RU»F9,5.3X2HV«F9.5,3X2HT«F9,5,3X4HMAT*I2)  0NbST597 

EMj  0*lbST598 
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SUBROUTINE  bondrv  ?®25?v 

common//  w(2200»7),L(2200> 

COMHON/BNDCRS/  WB1 (l09#a«7)*PBl (109«a>« !ND(109*«>  •  BnDCHS 

lWRj(78,e,7),PBJ<78,8), JND<78,9)  BNDCRS 

common  /BnDVAL/  WB<600,7),FRX<600),rRV<800»,FRS<600>  BNDVAL 

COMMON  /MaTaRR/  NMAT#  lMAT(l2«5)#rMAT{2S,B)iMAT 

COMMON/SCRTCH/  TWBC300<7>#rrRXC300>#TrRV<300>  SCRTCH 

COMMON  /ZONES/  NB6C <5,3> , NENplB, J) , ARCS IZ<S, 3> . D I  SMAX<5,3> , DI8MINI ZONES 
IB, 3)  ZONES 

COMMON  /COMVAl/  KT,AKT,DT,DTMINiIT|R,NEIBR,!POInT,ERR,ERS,EPS1,BDICOMVAl 
1S»TOP,DAL«KNAX,PORG,PSCL»LBiLF  comvau 

COMMON  /MaTVAL/  AX# AT i CFLi V  IS, VIST*MU, VC*  RHO, XO .  PO ,  TO, XZ, A, B, ABL, DMaTVAL 
1ARL, CHAN, BMAX«FACT|ANG,AF , S@M, *L, AS, AK,  HAL,MAS, HAK, QAL, O' j,  OAK  , DAXMaTVAL 
2,DaY,HDAX,H0AV,DAX2,DAV2,HDAXY#QDAXV,DTR,HALFMJ',TWTDMU,FRTDMU,00VMMaTVAL 
3U,TREOTM,NI,NJ,NFMAX#lS,JS,IJS,IBS,lSB,J8B,NIMl,NJMl,ND,Nni,NE,NElMATVAL 


AiNF,NIP2,NTR 
COMMON  /TRCPRT/  NTRS<5),ITR(5,2B),TR8<5,25) 

COMMON  /PRESS/  PDER,PR,Pi,MATNO 

COMMON  / INTFC/  NINFC*  INFC(60),NCNIM20,5> 

SOU  1  VALENCE  I VZ, TO  I 
LOGICAL  ERR 

STA(Y>  ■  BMAX-ALOG( «B*A»Y)/(B-A*V))*ABL 
ALP(X.Y)  »  FACT*(X«ANO*Y*TOP*ATAN(AF*Y) ) 

DO  90  MAT  ■  l.NMAT 
CALL  GENVaL 
N1  ■  IBS*2 
N2  ■  IBS*nF 

FRX<  IBS*1)  ■  ALP<PRX(lBS*l),FRY(IBS*in*XZ 
FRY«I0S*1)«ETA(FRY( IBS*1))*YZ 
po  10  I  ■  N1.N2 

FRXU)  ■  ALP(FRxm,FRY(I))*XZ 

FRYU)«ETA(FRY(I))*YZ  m 

10  FRSU)  «  FRS<I-l)*SORT(IFRX<P-FRXU.in**2*<FRY(I)-FPY(I-l>)**2> 
00  60  t  ■  1,NF 
II  ■  FRX ( IBS* I > *DAX*1 1 0 
JJ  ■  rRY(lBS*I)*OAY*2,0 
PS  ■  1.0E10 
KJ  ■  0 

00  20  J  ■  1,4 
X  •  II*M0D(J,2) 

M  •  JJ*J/3 

IF(K,LT.1.0R.K.GT.M,0R,M,LT,2,0R,P,GT,NJ)  GO  TO  20 
MN  ■  IJS*(M-1)*NIP2*K 
IF  (L(MN).EQ.O)  GO  TO  20 

PD  ■  (FRX( I0S*I)-FLOAT<K-1)*AX)**2#IFRY(IBS^I)*FLOAT(M-1)*AY>**2 
(DD,QE,D$)  GO  TC  20 


IP 

(U 

PS 


J 

DP 

20  CONTINUE 

IF<KJ,EQ,0)  GO  TO  eg 
40  K  ■  1 1 *HOD ( K J, 2 ) 

M  ■  J J*K J/3 
MN  ■  I JS*(M-1)*NJP2*M 
PO  50  KK  >  i.KMAX 
50  WR( IBS* I # KK )  ■  W(MN.KK) 
60  CONTINUE 


MATVAL 

T!»CPRT 

PRESS 

IMTFC 

OFAX 


2 

2 

2 

3 

2 

2 

2 

2 

3 

? 

3 

2 

3 

4 

5 

6 
2 
2 
2 

24 


UCNDRY14 
BONDRY15 
B0NDRY16 
B9NDRY17 
B0NDRY19 
80NDRY20 
B0NDRY21 
BONDRY22 
OFAX  25 
89NDRY24 
B0NDRY25 
OFAX  26 
BONDRY27 
BONDRY28 
BONDRY29 
BONDRY30 
B0NPRY31 
B9NDRY32 
9QNDRY33 
BONDRY34 
BONDRY35 
BONDRCll 
BDNDRY36 
B0NDRY37 
0ONDRY3B 
BPNDR Y39 
80NDRY40 
B0NDRY41 
B0NDRY42 
NSMTHB  1 
B0NDRY47 
B0NDRV48 
B0NDRY49 
BONDRV50 
NSMTHB  2 
B0NDRY52 
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90  CONTINUE 
NETMMN 
IND 


0ONDRV65 

B0NDRV66 

BONDRV67 
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SUBROUTINE:  OENSB 

COMMON  /faNOVAL/  MR(A0O,7),FRX(600)|rpY<600>.rRS(6O0> 

commcn/scrtch/  t*^rc300#7>, Trnx ( soo ) •  tfrycsoo ) 

COMMON  /MATARR/  NMAT, IMATE12,5),FHAt<23,5>,MAT 


DENSB  2 
0NUVAL  2 
SCHTCH  2 
MATARR  2 


CCMMQf  / MATVAL/  AX,AY,CFL,VJ$,V1ST.MU,YC,RH0,XQ,P0, 
IABl, CHAN, BMAX,  FACT, aNQ, AF,SRH,AL#aS»AK#WAL» HAS, HaK, 


to,xi,a,b,abl*dhatval 


2,CAY,h0AX#HDAY,DAx2,0AY2,HDAXY,0DAXY,DTR,HALFHUiTWTDMU,RRTCmu,00VMMATVAL 
3U, IRE0TM,N1,NJ,NFMAX,  IS,  JS,!JS,10S, IS8,jSB,NIMi,NJMl,NDjNDi»NE,NEiMATVAL 


2 

3 

4 

5 


4,U «NIP2,NTfi  MATVAL  6 

Common  /ZONES/  NBEG<  5, 3) , NEND(5*3) * ARC312 (5,3) » D  ISMAX(3»3) *DI5MIN( ZONES  2 


15,o)  ZONES  0 

COMMON  /COMVAl/  KT,AKT,DT,DTNIN,  ITER,NEIBR, !ROINT;e»R,ERS,EPSi,RDICOMVAL  2 

is,iop,dau,kmax/porq, pscl,lb,lf  COMVAL  >5 

COMMON  /PRESS/  PDER,PR,PE.HaT110  PRESS  2 


COMMON  /JNTFC/  NInFC, INFC<60),NONINI20, 5)  1NTFC  2 

6Co!valENCE(YZ,T0)  OFAX  32 


LOGICAL  PDER  DENSE)  11 

LOGICAL  fcRR  DENSH  12 

DA  I  A  MAXIT/10/  DENSBC11 

R<r>«A-B*<CHAN*MRMAX-Y*YZt«l10)/<CHAN««{BMAX«V*Y2)*l,(n  OF  AX  33 

Z  f  X , Y )  «  XO*(X«XZ)*aNG*Y*TCP*ATAN(AF*Y)  DENSB  15 

CALL  INFACE  DENSB  16 

NIN2»2«NINFC*1  DENSB  1? 

DC  10  MAT  ■  l.NMAT  DENSE)  lb 

DC  10  I  ■  1,NIN2  DFNSB  19 

10  NCMNU.MAT)  ■  0  DENSB  20 


DC  70  K  ■  1, NINFC 
MA 1 1  «  |NFC(6*K-5) 


DENSB  21 
DENSB  22 


MA  l  2  *  InFC(6«K»2) 

MAI  •  MAT1 

Nl  '•  INFC<6«K»4) 

N2  *  I  NFC ( 6*K"3  > 

20  Ij  «  *1 
30  IJ  »  I J*2 

IF  (NONIN<IJ,MAT)tNE.O)  GO  TC  30 
40  IF  ( IJ,EQ,1)  GO  TO  50 

IF  <  NON  I N  C IJ-1,MAT> ,LT,N1)  00  TO  50 
NONINE I J,MAT)  ■  N0NIN( I J. 2, MAT) 

NON I N < J J*1,MaT)  «  NONINE  IJ-l, MAT) 

Ij  ■  IU-2 
GO  TO  40 

50  NONINE  J J|MAT)  ■  Nl 
NONINE I J*l, MAT)  »  N2 
IF  (MAT. EG. MATS)  GO  TO  60 
MAI  ■  MAT2 


DENSB  23 
DENSB  2 * 
DFNSB  25 
DENSB  26 
DENSH  27 
DENSB  28 
DENSB  29 
DENSB  30 
DENSB  31 
DENSB  32 
DENSB  33 
DENSB  34 
DENSB  35 
DENSB  36 
DENSb  37 
DENSB  38 
DENSB  39 


Nl  *  ! NFC  C  6*K ) 

N2  «  INFC(6*K-1> 

GO  TO  20 

60  IBS  »  l MAT  E  7, MAT2 ) 

Nl  «  IdS*lNFCt6*K> 

N2  »  IUS*lNFC<6*K-i) 
DC  70  J  ■  N1,N2 

70  HBU.l)  •  *U0(J,1) 

DO  220  MAT  ■  l.NMAT 
CALL  GENVAL 
DO  8q  J  «  1,NF 


DENSE)  40 
DENSB  41 
DENS3  42 
DENSB  43 
DENSB  44 
DENSB  45 
DENSB  46 

DENSB  47 
DENSB  48 
DENSB  49 
DENSB  50 
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60 


1  *  I HS» j 

TFhy  t j)  ■  R(FRy< J > ) 

TFHX(J)  ■  Z(FRX< I > • TFRY( J) > 


1J 

■  1 

Nl 

»  1 

N2 

■  N0NIN(1,MAT) 

IF 

( N2 . Nfc , 0 )  GO  TO  100 

Nl 

<  IdS*l 

N? 

■  IbS«NF 

GO 

TO  110 

90 

IJ 

»  I  J*2 

Nl 

■  NON  J  N ( IJ»1,MaT)*1 

N2 

•  NONIN< ij,maT) 

IF 

( N2 , Nfc . 0 )  GO  T n  100 

IF 

(N1,GT,NF)  GO  TO  190 

Nl 

»  IdS«Nl 

N2 

«  IdS*NF 

GC 

TO  110 

100 

IF 

<N1,EQ.N2)  GO  TO  90 

Nl 

*  IdSaNi 

N2 

•  IdS*N2-l 

110 

DO 

180  I  ■  N1,N2 

J 

in 

m 

• 

it 

IF 

( J.NF.l.AND,  J.NE.NF) 

IF 

(TFRY(J),GT,lfOE*4) 

GO  TO  140 

HY(J>,GT.l,OE-4)  GO  TO  120 
CCSPS1  ■  0.0 
SINPSI  «  1.0 
GC  TO  160 

120  IF  Cj.fcQ.NFJ  GO  TO  130 
JP  ■  ? 

JP=NF-1 
GC  TO  150 
130  JP*2 

JP  ■  NF-1 
GO  TO  150 
140  JP  ■  J*1 
JP  *  J-l 

150  DZ  ■  TFRXC JP)-TFRX( JM> 

DP  ■  TFRY( JP)-TFRY< JP) 

CCSPSI  «  DZ/SORT<  DZ**2*0R**2) 

SINPSI  •  DR/S0RT(DZ**2*nR**2) 

160  CONTINUE 

PP  ■  Wb< |i5)*SINPSI**2*2,0*UO(J,6)*SINPSI*COSPSI*PBU 
E  »  WB ( 1.4) 

PDtR  ■  .TRUE, 

DO  170  N  ■  l.MAXIT 
RPU  ■  -HB<  1,1) 

P  »  PRSCRMO,E> 

CCHR  a  (P-PP)/pR 
WB  (1,1)  a  MB ( 1 , 1 ) -CORR 

IF(*BS(C0RR).LE,ABS(WBU,1))*EPS1)  QC  TO  160 
170  CONTINUE 

ERH  ■  .TRUE, 

WRITE  (6,230)  AKT,M*T,J,E,PP,WB(I,1>,P,PR,C0RR 
180  CONTINUE 

IF  <  NON  I N  < I J.MaT)  .NE.OJ  GO  TO  90 


DENSB  51 
DEN3B  52 
DENSB  55 
DENSB  54 
DENSB  55 
DFNSB  5fc 
DENSB  57 
DENSB  5« 
DENSB  59 
DCNSH  60 
DENSB  61 
DENSB  62 
DENSB  65 
DENSB  64 
DENSE  65 
DENSB  66 
DENSB  67 
DENSB  6« 
DFNSB  69 
DENSB  70 
DENSB  71 
DENSB  7? 
DFNSB  75 
DENSB  74 
DENSB  75 
DENSB  76 
DENSB  77 
DENSB  7 K 
DENSB  79 
DENSB  BO 
0ENSBC21 
DENSB  B2 
DENSBCZ2 
DENSB  84 
DENSB  85 
DENSB  86 
DENSB  87 
DENSB  86 
DENSB  89 
DENSB  90 
DENSB  91 
DENSBC12 

,7)*CCSPSI**2DFNSB107 

DENSB10B 

DFNSB109 

DENSB110 

DENSB111 

DENSB112 

DENSB113 

DENSB114 

DENSBC13 

DENSB116 

DENSB117 

UENSB116 

DENSB119 

DENSB120 
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190  DC  220  M  ■  1,3 
DMAX  *  0,0 
D** l N  ■  1.0E6 
N1  •  !BS*NBEO<M*T,M)*l 

N2  •  i«s*nend(hat,m» 

DC  210  I  ■  N1.N2 

IF  ( MB( 1 1 1) , GE , 0 , 0  >  GO  TO  20(1 

we  c l • i >  ■  "WB (ill) 

GC  TO  210 

200  DUDIS  «  FRS<  D-FRSI  I-l> 

DMaX  ■  AMAXKOMAX.DIFD  IS) 

DKlN  ■  AMlNKDMlN.DiFDlS) 

210  CONTINUE 

DIIjMAXIMAT.M)  *  Dhax 
220  DliMIN(MAT.H)  *  DMIN 
RE  I  URN 


C 


230 


FORMAT  ( 6H0 AT  T«F9,T, 
118M  BOUNDARY  AT  POINT 


30m  DENSITY  DOES  not  CONVERGE  CN  MATFRIAL 
I4/19H0F.,PP»RHOip'PR*C°RR/6E2®  •  ?* 


12. 


END 


DENSB121 

DENSB122 

DENSB123 

DENSB124 

DENSB125 

DENSB126 

DENSB127 

DENSB12B 

DENSB129 

DENSH130 

DENSB131 

DENSB132 

DENSB13J 

DENSR134 

DENSB135 

DENSR136 

DFNSB137 

DENSH13B 

DENSBC1A 

DENSBC15 

DENSB141 
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StdftOUT I Ne  I  NT  ACE  INFaCE 

COMMON  /BNDVAL/  Mfi<AOO,7),FRX<600),FflY(6CO>,FRS(6OO>  BNUVAL 

COMMON/SCHTCH/  TWR(3QO,7),TFRX(300>.TFPY(300>  SCHTCH 

COMMON  /MATARR/  NMATe  !MAT<12,5),FMAT(23,5).MAT  r*JArr 

COMMON  /ZONES/  N0EG<5.3> ,  NEND <5,3 ) ,  ARCSIZ 13# 3 > , D I SMAXI5.3> » D I SM I N ( ZONES 
15,3)  ZONES 

COMMON  /COMVAL/  KT,  AKT.jlT.DTM  IN.  J  TER,  NEIBR#  1  POINT',  ERR.ERS.EPSI.RD  I  COM  VAL 
IS,  lOP.UAU.KMAX.PORQ'.PSCL.LB.Lr 

COMMON  /PRESS/  PDER.PR.PE.MATNO  rr”S 

COMMON  / JNTFC/  NINFO,  INrC(60).NON|N(?0,5)  INTFC 

LOGICAL  POER.ERR  JN*A£J 

DA  I  A  MAX l T/10/  »Nf  *L1 

ZIX.V)  a  FMAT(9,MaT)*(X"FMAT(12»MAT))*FHAT(20»MAT>*V*TOR«aTAN(FMATINFaCE11 

1(21, MAT >*V)  „ 

ChlV)»FMAT(i7.MAT)**<FMAT(18,MAT>-V«FMAT(U,H*Tn  orAX  34 

R ( Y  J  a  FMAT(13,MAT)-FMAT(14,I'AT»*<CM(Y)-1.0)/<CH(V)*1.0I  INFaCEIA 


PCfcR* , TRUfc . 

DO  60  K  ■  l.NlNFC 
MAH  a  I  N  F  C  (  6*K*5  ) 
MA12  a  INFC(6*K-2) 
RMJ1  a  FM*T ( 8, MAT 1 ) 
RMU2  a  FM*T ( 8, MATS  ) 


INFACI  3 
INF  ACE16 
IMF ACE17 
INF  ACElP 
INF  ACE19 
I nF ACE20 


RM12  a  RM01*RH02 
IBS  a  I  MAT ( 7 , M*T 1 ) 

N1  «  IBS*JNFC<6*K-4> 

N2  *  I  as* I  NFC  t  6*K-3  » 

NF  a  NfcNU ( MAT1 • 3 ) 

MAI  a  h A  T1 

J  *  lMAT(7,MAT2)*INrC(6*K-l)*l 
DO  60  I  ■  N1.N2 
J  a  J*1 

u  •  i - i as 

IF  ( IJ.Nt.l.AND. I J.NE.NF)  GO  TO  30 
IF  (FRY( 1 ) .GT ,1, 0E"4 )  GO  TO  10 
COSPSI  «  0.0 
SINPSI  a  1.0 
GO  TO  50 

10  IF  (  I  JiEQ.NF)  30  TO  20 
JP  a  IUS*2 
IF*S  IijS*NF*l 
GO  TO  40 
20  IP*IBS*2 

IM  a  IdSaNF-1 
GO  TO  40 
30  IP  ■  1*1 
IM  a  I-! 

40  RP  ■  R(FRV( IP)  ) 

RM  a  R ( FRY ( I M  )  ) 

OR  a  RP-RM 

DZ  ■  Z(FRX( IP),RP)»Z(FRX( IM1.RM) 
COSPSI  a  DZ/SORT < PZ**2*0Pa*2) 
SINPSI  »  DR/S0RT(DZ**2*0R**2) 

50  MATNQ  ■  | MAT (10. MATl ) 

RMli  ■  MB  (  1,1) 

E  >  WB( 1,4) 

PI  a  PHS(»HO,E) 


INF  ACE21 
INF  ACE22 
INFACE23 
INF  ACE24 
INFACE25 
INFACE26 
INFACE27 
IMF ACE28 
INFACE29 
INF  ACE3C 
INF  ACE31 
INFACE32 
INF  ACE33 
INFACE34 
INF  ACE35 
INF  ACE36 
INF  ACE37 
I NF  »C2  1 
JNFACE39 
INF  AC2  2 
INF  ACE41 
INF  ACE42 
INFACE43 
INF ACE44 
INFACE45 
INF  ACE46 
INF  ACE47 
INFACE4P 
INF  ACE49 
INFACE50 
INFACE51 
JNFACE52 
INF  ACE53 
INF  ACE5* 
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MAINQ  «  I M  A  T  <13( MAT?) 

HNU  ■  W8(J,1> 

E  *  W8(J,4) 

P2  ■  PHS<RHO,E) 

S1NSQ  ■  S I NPS I ** 2 
CObSQ  ■  COSPS 1**2 
SINCOS  *  S  JNPS I *COSPS  ! 

TNNl  ■  <HB(I,5)*Pl>*SINSO*2.0*W«U»4)*SINCOS*<WB<  !,7>«Pl)*C0SSQ 
TNN2  «  <wB( J,5)«P2)#SINSO*2.0*HP<J|P)*SINCOS*(«BU,7)«P2)*COSSO 
*8<  !,2)*S1NPS!*WBU.3)*C0SPSI 
wB(«U2)*S!NPS!*WB(Jj3)*C03P$1 
WB(I,3)*S!NPS!-WB( I,2)*C03PSI 
WR ( J, 3  > *S I NPS  f - WB < J,2)*C0SPSI 

RHl2»<WP(Jil )  *TNN1*WB  (  I,1)*TN*J2)/<RH01*wB<  I » 1  >  *PH02*WB  t  J*  1 ) 
•  TNN/RHOl 
«  TNN/PH02 
rhOi*wb<  i  ,d 
RH02*WR< J,l> 

(C0N1*UN1*C0n2<*UN2)/( CO*!l*C0N2 ) 


UN*S1NPSNUT1«C0SPS! 

UN*SINPSI«UT2*C0SPS1 

UN*COSPSl*UU*S!NP$t 

UN*C0SPSI*UT2«S!NPS! 


UM  i 
UN<i  i 
UTl  i 
UT<!  i 
TNN  i 
TNNl 
TNn2 
CC  INI 
CCN2 
UN 

WB  t  1,2) 

HB(Ji2)  ■ 

W  8  t Ij3)  ■ 

W'JU|3>  i 
TNN«TNN1 
M* I »M*T1 
M»  1 

52  M*INO«|M*T(10,M*T) 

IF(MATNO,GT.103)  GO  to  56 
E*WB(H,4) 

PPsW0(M,5)*SINSQ*2,n*PBtH,6)*SINCOS*WB(M,T)*COSSQ«TMN 
DC  54  N«1,MAXIT 
RPU»*WB (Mil) 

P*HRS<HHQ#E> 

COHRi ( P-PP ) /PR 
MB<M,l)iWB(H,l)-CORP 

IF  t  ABS(CQBR) .LE.*PS(WB(M,l)  )*FPS1 J  OC  TO  56 
54  CONTINUE 
6RN»,THUfc. 

HP»M-IMAT(7,H*T) 

MR  1  Tb (6*100  >  AKT*MAT#MM»E«PP#WB(M#l)»P#PP*CORR 
56  IF  <  MAT i EQt  MAT2  )  Go  TO  60 
TNN«TNN2 
H*I»MAT2 
H«J 

GO  TO  52 
60  CONTINUE 
RE  1  URN 

100  FOHMaT  ( 6 w 0 A T  T«F9,5»38H  DENSITY  DOES  NOT  CONVERGE  ON  M*TeRIALI2# 
U8H  BOUNDARY  AT  POInTI4/19H0C.PP**HO,P,PR,CORR/6E20.7J 
END 


INFACE55 
JNFACE56 
INFACE57 
INFACE58 
INI ACE59 
I  Nf  ACE  60 
INFACE61 
INF  A CE 62 
jNf ACE63 
I NF  ACE66 
JNFACE67 
INI  ACE6P 
IN!  ACE69 
) IN!  ACL70 
I NF  ACE71 
INFACE7? 
IN!  ACE75 
IN! ACE76 
INF ACE77 
IN! ACEB4 
INFACEB5 
JNFACEBo 
IN!  ACEB7 
iNfACl  4 
IN! AC1 
INF AC1 
IN! AC1 
IMF  ACT 
INFAC1 
InFaCIIO 
InFaCj.11 
I NF  aC112 
IN!  ACU3 
INFAC114 
IN! AC1J5 
IN! AC116 
INFAC117 
JNFACUB 
I NF  AC3  1 
INIAC3  2 
I NF AC121 
INF  AC122 
IN! AC123 
INFAC124 
IN! AC125 
IMFACEBB 
INFACE89 
INFAC126 
INFAC127 
INFACE90 
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SLrtROUTIM:  FINISH 
COMMON//  W(?20fl,7),L<22'’0) 

CCMM0N/9NDCRS/  WBI  (109,8,7>,F'RH109.P>»  !KD<109,9), 
lWBJ<78,8,7),pRj<78.8>. JnD<78,9) 

COMMON  /UNDVAL/  HR(AOO,7),f RX < 600  ) »FF Y ! 6 0 0 ) * F*S ( 6P 0  ) 


FINISH  2 
INTVAl  2 
BNUCPS  2 
BNUCRS  1 

_ _ , _  -■  BNU'/AL  2 

COMMON  /ZONES/^NBFGIS.S) flENrij.S) .  ARCSIZ<5*  3>  *  n  I  *HAX  (5i  3)  .DISMIMZONES  2 
15,0)  ZONES  3 

COMMON  /mATARR/  NMAT, IMAT(12*5)»FMAT(23#5)#M*T  MATARP  2 

COMMON  /TRCPRT/  NTRS(5>,  I  TR  ( f ,  25 )  i  TRS  <  5 . 23  > 

COMMON  /COMVAL/  KT, aKT.DT.DTIMN, ITEP,NEIPB,  IPOINT , ERR.EPS,EPS, .BDICOMVAL 
IS,  IOP.UACiKMAX.PORG.PSCL.LB.LF 

COMMON  / MATVAL/  AK,AY,CFL,V!S1VIST,Ml,yc.RHO,XO,PO,TO.X7,t,R,ABL,DMATVAL 
1  AfiL,  chan,  HM  AX,  FACT,  aNG,  AF  ,SBf.A(.»*S,AK,HAL*HA^,HAK,f;AL,lAS,OAK,nAXMAT'/AL  0 
2,CAT,HOAX,HDAY,DAX2.DAY?,HDAXY,QDAXY,DTR,HALFMU,TWTrMli,FRTCMl.OOVMMATVAU 

30,  iHtOTM,Nl,NJ,NFMAy, I S  .  JS,  1 JS, ! BS, If R,  JSB,  M ! Ml, N JM1 , NO, NDl , Nb,  NElMA fvAL  5 


4 » N ) , N I P2 , NTR 

CCmmon  /INTFC/  NINFC,  INFC(60),NONIN<20,5> 
LOO  I  CAL  fcPR 

ZbMAX  i  AX#FL0AT(MIM1  ) 

RfcMAX  «  AY*FlOaT(NJ-2> 

ZMN  s  l.Ofcft 
ZMX  B  -ZnN 
RMX  s  ZMX 
RMNiZMN 

DC  10  I  ■  1 , NF 

ZMm  s  am|N1(Zmn,FKX( IBS*I )) 

ZMX  1  amaxkzmx.Fpxi  IBS*m 

RMN*AMIN1(RMN,FRY( I  PS*  I  7  ) 

10  RMX  a  AMaXKRMX.FRYMBS*!)) 

IF  IRMX.Gb.RBMAX, OR. 0HN.LT. -l.OE-O  <?C  TO  60 
JFlZMN.Lt. 0.0)  GO  TO  15 
IFIZMX.LT.ZBMAX)  GO  TO  70 
ISrt«JNT(ZMN*DAX) 

K*  U 
I  N0*1 
GO  TO  18 

15  ISh«INT< (ZMX-ZBMAX)*DAX) 

K*N I *1 
INCa-l 

18  I Shb I SM/2 

JShbJabS! ISH) 

IFUSH,Lt.2>  GO  TO  60 
ZD)  a  FLOAT!  ISH) *AX 
XZsXZ-ZDF 
FMATU2.MAT)  a  XZ 
DC  20  l  ■  l.NF 

20  FRX( JBS*  I  )*FRX(  I  0  S ♦ I )»ZDF 
ISH«JSH*1 
DC  40  M  a  ISP.NI 
K*A* l NC 
I  * 6* I SH 

DO  30  J  •  1 , N J 
JJ  «  1  JS*< J-1)*NIP2 
L  <  Jj*K  )  »  L  <  J J»  I  ) 

DC  30  KK  ■  l.KMAX 
30  W ( J J*K ,  KK )  a  W(JJ*I,KK) 


MATVAL  8 
INTFC  2 
F  I  N  I  S  H 1 2 
FIMSH13 
F  I  N  I  S  H 1  4 
F  IMSH15 
FINISHlft 
F I N I  SHI  7 
OFAX  35 
F I N I  SHIP 
FJMSH19 
FINISH20 
OFAX  36 
FIMSH21 
OFAX  37 
FIMSH23 

F  INISH24 
FIMSH25 
FINISH26 
F  I N I S  H  2  7 
FINISH28 
FINISH29 
FINISH30 
FINISH31 
FINISC21 
FINISC22 
FINISH33 
FIMSH34 
FINISC23 
FJNISH36 
FIMSH37 
FINJSC24 
FINISH39 
FINISH40 
F  I  N I SH41 
F  INISH42 
F  INISH43 
FINJSH44 
FIMSH45 
F  I  N  I  S  H  4  6 
FINiSh* 
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r 


JJ&L 


DC  40  j  «  1,9 

40  INU(JS*K,J)  *  INDUS*!, J> 

DC  50  J  *1 1 JSH 
K»K* I NC 
DC  50  J  ■  1 , N J 
JJ  ■  I JS*< J-l)*NjP2 
50  L  <  J J*K ) ■ 0 

WRITE  (6,170)  MAT.I4H 
GO  TO  70 
60  fcfiw  ■  •  TRUE i 

WRITE  (6,180)  HAT 

Wfi i Tfc  (6,200)  ZBMAX.RHMAX.(rnx(IBS*I),FPVUBS*!>,!  *  1,NF) 
70  DC  150  M  »  1,3 
UF  »  NENO ( MAT » H ) 

LB  ■  NdEG ( MAT*  H  ) 

DELS  ■  FHS< !8S*LF)-FRS( ITSELF > 

IF  (2,0«AHCSIZ(HAT,H),GT.rF.Lr)  GO  TO  130 
LAuD  *  (L.F-LBJ/2 
IF  (NF*LADD,GT,NFHAX)  Go  TO  130 
LH  «  NF-uf 

IF  (LH,eU.0>  GO  TO  110 
DO  80  l  ■  l.NTR 

IF  (ITK(MAT,D,LT,LF)  GO  TO  80 
I  Th ( MAT  *  1 1  ■  ITR<MAT, I )*LAPD 
00  CONTINUE 

Nl N2  ■  2*N I  NFC 
DC  90  I  ■  1.NIN2 

IF  (  1  NFC  <  3* ! -2 ) .NE.maT)  GO  TO  90 

IF  ( JNFC( 3*1-1) ,GF,I  F)  !NrC(3*I*l>  *  INFO ( 3* I -1 >*L ADD 
IF  (  INFC(3*I) ,GE,lF)  I NTC  <  3*  I  >  ■  INFC (3* II *LADD 
90  CONTINUE 
nf 1  ■  NF*1 
DC  100  LL  «  1,LM 
LI  «  NF1-LL 
L2  *  L1*L*DD 

Ffi  X  (  I  Bij*i»2 )  «  FRX  ( I  oS*Ll  ) 

FR  T  (  1 B S ♦ L 2  >  ■  FRT( IRS*L1) 

DC  100  KK  ■  1 ,  KH A X 

wB ( I BS*L 2 , KK )  ■  WR < I BS*L1 ,  KK ) 

100  CONTINUE 

110  DO  120  LI  «  M,3 

IF  (Ll.EQ.l)  GC  TO  120 
NBeG(HAT , LI)  ■  nEnD(HAT.LI-I) 

120  NEND(HAT.Ll)  ■  NEND(HAT,L1)*LaDD 
NF  •  NF*LADD 
NE  ■  NENU«HAT,2) 

NEl  ■  NE*1 

NO  ■  NkND<MAT,l> 

NDl  •  ND*1 

WRITE  (6,190)  HAT.M.DELS, ARCSIZ(HAT,p),AKT 
AfiOSlZ(HAT.H)  e  DELS 
GO  TO  140 

130  DELS  ■  DELS/FLO*T(LF-LB) 

IF  (DISH |N( maT,  M )  ,GE,  (1.0-DAL)*DELS, AND. PISMAX(MAT,H) ,LE. (1 
l*DtLS>  GO  TO  150 

WRITE  (6,160)  HAT,  H.  DELS. DISMIN<MAT,M  ,  D ISHAX (MAT.M) , AKT 


F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 
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F 

F 

F 

F 

F 

F 

F 
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F 

F 
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F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

, 0*D*L)F 
F 


N I SH48 
NJSH49 
NISH50 
NISH51 
NISH52 
NISH53 
NISH54 
NISH55 
N1SH56 
NISH57 
NJSH58 
NISH59 
MSH60 
NJSH61 
NISH62 
N  I  SH63 
NISH64 
NJSH65 
NISH66 
NISH67 
N I SH0B 
NISH69 
NISH70 
NISH71 
NISH72 
N I S  H  7  3 
NJSH74 
NISH75 
NISH76 
NISH77 
NISH78 
NJSH79 
NISH60 
NISHB1 
NISH82 
NISH83 
MSHB4 
NISH85 
NISH86 
NISH87 
NISHBB 
NISH89 
N I SH90 
NJSH91 
NISH92 
NISH93 
MSM94 
MSH95 
NISH96 
NISH97 
NJSH96 
NJSH99 
NIS100 
NIS101 
MS102 
NJS103 
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140  CALL  RfclAdL  (H) 
150  CONTINUE 
RE  I  URN 


FIN  1  SI  0-1 
F  I N I  SI  0 K 
F I  ri  i  si  n  o 
FIMS107 

160  FORMAT  (l«H  RFZONINR  MATFRUL12.8H  SLRFACF  I2#  6x5HTELr.«F  1 0 . 7 , 6X7HD  IF  j Jl !|1 0  ^ 
lSMiN.F10,7,6X7HDISMAX-F10.7,6X2MT«F915)  eu|rT(_1  li  Sll t 

170  FORMAT  (9HOMaTeRIaL!?i30H  BOUNDARY  CXCEEPR  D0»  A 1 7-  SMirTt5) 

100  FORMAT  <VH0MATER!Al!2,36H  fiflt'NDARV  FXCEEPS  ^'Alh.RLU  ARORTFD)  J, 

1<J0  FORMAT  <26H  aDPING  points  Tfl  MATER1AU2.5M  SIDEl2.6X8MARrSI7E«Fl2.F  - 

15,e)X12H0LU  ARCS!ZF«ri2,5,6X2'!T«F9,5)  „  _  r  ,  e  Ta 

200  FCrMaT  <2<H0(ZMAX,RMAX>/<Z(I>»R<U>/F11.3»F9.3/<6JF1i.3,F9tJ)>)  p  { ^  1  S 1 1  !s 
EM 
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SLdROUTIiwb  RELAHc  (m)  RFLaHL  2 

COMMON  /HNQVAL/  AHU0O,7),FRX(6OO>#rrY(600)»r,,S(6n01  BNUVAL  2 

^COMMON  /ZONFS/  NBEGf  5»  3  ) ,  flENM  (5, 3 )  *  AFCS IZI5, 3  > » 0  I  SMAX<5'«  3  > » D I  SMI  N(  JONFS  2 


COMMON  /NATARR/  NMAT , 1 M A T ( 1? . 5 ) , FMAT ( 23 , c ) , M*! 

COMMON/ SCOTCH/  T/R(300#7) ,TFfx(300)  ,TFRY(300  ) 

COMMON  /COMVAL/  <T,  AKT.DT.DTMIN* HER, nEIFR, IPOINT, ERR. 

is,  iop,oal,kmax,p3rg,pscl,lb,lf 

COMMON  /MATVAl/  AX,aY,CFL.V!S. V!ST,Mt.YC,RH0,X0.P0»T0, 

iaPl,chan,hmax,faCt,  amg,  *f ,snM, al.as, ak,hal,has.hak,cal 

?,CAY,HDAX,HnAY,DAX2'.DAY?,MDAXY,0DAXV,0TP,HAlFMU,TMTrm' 

3U,  IRfeOTM,NI,NJ,NFMAX,  rS,JS,IJS,!BS,!SB,JSt',NIMi,NJM1  ,N 
4  ,  N  F  ,  N  I  P  2 ,  N  T  R 

COMMON  /THCPRT/  NTRS<5),  ITF(r,25),TRS<5.2B> 

COMMON  / I NTFC/  NlNFr, INFr<60) ,MONlN<?0,5) 

DA  I  A  EPS/1.  E-5/ 

10  MF  «  NfcNU  <  MAT »  M ) 

NP  *  NdEu ( MAT , M ) 

LB  IS  The  BEGINNING  UF  THE  nLH  SET 

NB  IS  the  BEGINNING  of  THE  nEW  SET 

LF  IS  THE  END  OF  THF  OLO  SET 

MF  IS  THE  END  OF  THF  NEw  SET 

N61  •  N8*l 
NFM1  a  MF-1 

DELS  *  (FHS(IPS*LF).FPSIIFS*LB)I/FLOAT<mF-NB) 

S  =  FRS(  l BS*LP ) 

K  *  LB*1 


MaTaPR  2 
SCHTCH  ? 

EPS.EPS1  .RDICOIIVAL 
CDMVAL 

XZ.A.P.ABL.DMaTVAL 
,OAS,OAF,rAXMATVAL 
.FPTCMU.Of’VMMATVAL 
D’.NPl.NF.NElMAT/AL 

MATVAL  t 
TPCPF  T  2 

parr  / 
HFLAFLll 
HFLABL12 
HFLAHll-J 
RFLAPL1A 
RFLABLlb 
RFLABL16 
RFLAPL17 
RELAhLlf 
RFLAHL1R 
HFLAHL2') 
RFLABL21 
HFLABL2? 

RPI  API  73 


DC  20  J  «  1,NTR 

IF  ( ITH(rtAT, J) .GE.LR)  0°  TO  4n 
20  CCnTJNUE 
30  STm  ■  1.UE10 
Iw  ■  LF ♦! 

GO  TO  SO 

40  IJ  »  ITR(MAT.J) 

IF  ( I J.Gt.LF)  GO  TO  30 

STn  a  FRS( IPS*IJ>*TpS(MAT, J)*(FRS( IPS*Iu*l)-FOS( IRS*I J) ) 
50  CONTINUE 

DC  110  I  ■  NBI.NFmI 
S  s  S*DELS 

60  IF  <FRS<  IHS*K) .GE.SI  GO  TO  70 
K  *  K*1 
GO  TO  60 

70  AO  a  (S-FHSI  IRS*<n/<FRS(  IRS*K-1)-FRS(  IRS*K) ) 

A1  ■  l,0-*0 

TFHXUJ  «  A0*FRX(  I0S  +  K-1  )*A1*FRXUBS*K) 

TFHY(I>  a  AOaFRYt IBS*K-1)*A1*FRY< IBSaM 


RFLAHL24 

RFLABL2S 

RPLABL26 

RCLABL27 

HFLABL28 

RFLABL2’ 

RFLABL30 

HELABL31 

HFLAB132 

RFLABL3J 

RELARL34 

RELABL35 

RFLABL36 

RELABL37 

HFLABL3R 

RFLAHL39 

RFLABL40 

RELABL41 

RFLABL42 


DC  80  KK  a  l.KMAX 

80  TWd(I.KK)  «  A0*W8(  lRS*K-l,KK)*Al«WBnPS*X,KK) 
RO  IF  (STH.GT.S)  GO  TO  110 
ITH(MAT.J)  a  !-l 


TRS(MAT.J)  a 

(STR-S*DELS)/DELS 

J  * 

J-l 

IF 

( J.UT.NTR) 

GO  to  100 

IJ 

«  ITR<MaT, 

J! 

IF 

(IJ.GE.LF) 

GO  TO  100 

RELABL43 

RFLABL44 

RELABL45 

RELABL46 

RELABL47 

RFLAHL4R 

RRLABL49 

RFLABL50 

RELABL51 
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o  o  r> 


ST  rt  «  FRS<  IRS*  I  J)*TBSOtAT,  JWFRSUBS*!  J*1>«FRS<  I BS*  I J  >  » 

CjC  to  VO 

100  STh  ■  l.utio 
U  *  LF*1 
110  CONTINUE 

IF  ( 1 JtGkiLF)  GO  to  130 
UC  120  I  •  J,NTR 
Iw  *  I TR ( MAT, I ) 

If  < I J.GE.LF)  GO  TO  130 

ST*  «  fRSUSS*lJ)*ToS<k'*T,n*(fBS«lFlS*lJ*i>-rnS«!BS*lJ>) 
IT*(MT.  I )  »  Nf H 1 
120  TfiatNAT.l)  «  < S T R - S ) /DELS 
130  CONTINUE 

TFHX(Nb)  *  FRX(!BS*lR) 

Tf «Y<Nb)  •  FRY ( 18S*LB> 

TFkXIMFI  ■  FRX ( !9S*lF) 

TFmY(M) )  *  FRY ( I 3S*lF ) 

UC  140  KK  ■  l.KMAX 
T*o(NR|KK>  •  Wf,  ( IHS*LR#  KK  I 
140  TUti  ( MF  i  KK  )  ■  WB<  lRS*LF,*h  ) 

Ht  HA Vt  JUST  FCUVD  FU  AND  FV 

DC  150  I  *  NB.HF 
F  fix (  IBS*  l  )  »  Tf  RX ( I ) 

FRY  <  IBS*  l )  ■  TFRYM) 

DC  150  KK  ■  l.KHAX 
150  WF<IbS*I,KK>  i  TKR( I #  KK  ) 

TFrtX(l)  ■  0.0 
DC  160  I  *  2.NF 
TFHX(I)  »  FRS( I BS* I  I 

160  Ffis ( I BS*  I  J  •  FfiSl  1 8  R*  I  *1 )  •SOFT (  (FRY  t  I  BS  *  I )*FRY( I  PS* I  - 1  )  )  **2 
1BS*I )-FRXt IBS*I-1) )••?> 

NIN2  *  2«NINFC 

N1  «  IbS*NBl 

N2  ■  IbS*NF 

DC  220  I  •  1 . N I N2 

IF  ( INFCI3*I*2) .MF.haT)  GO  TP  220 

Ij  *  hod< 1,2) 

K 1  *«3*I-1J 

11  *  INFC<K1) 

K2  «  3*  I - 1 *  I J 

12  ■  INFCIK2) 

IF  <  11.LE.LR, OP. U.OT.LF)  GO  TO  190 
S  *  TF  RX ( 11) 

DC  170  J  *  N1.N2 
IF  (S.LE.FRSU))  GO  TO  180 
170  CONTINUE 
J  s  N2 

180  I N*  C  <  K1 )  ■  J-I6S 

190  IF  (  12. Lb, LB. OP, I2.GT.UF)  GO  TO  220 
S  *  TFHXU2) 

DC  200  J  *  N1.N2 
IF  (S.LT.FRS(J))  GO  TO  210 
200  CONTINUE 
J  =  N2*l 


RELAbLbZ 
RFLAHLS3 
RELAHl 5A 
RFLARL55 
REUBL5A 
REUAB15/ 
RFLAblbP 
RFLAHL59 
R  F  L  A  r>  L  B r 
RELABLM 
HFlABI  6? 
RELABL6  ' 

Rf LAHlfcA 
HFL  ABL6* 
RFLABL6* 
RFLABl h? 
RF-LAhLb'- 
RFLAbLh'' 
RFLAHL7'1 
HFLARL71 
RELAHL7? 
HELABL7T 
RFLABL7A 
HFLAPL75 
RFLAbl7B 
RFLAHL7  > 
RFLaBL7‘- 
RFLAHL7Y 
RELABLfiH 
RFLAHL81 
RFLaBLB? 

•  (FRXt  IHFLAHLH.' 

HFLAHL8A 
HEL  AELB'J 
KELAblBt 
RFLAELB7 
RELAHLH8 
RFLABL89 
RFLAHL9J 
RFLAblVl 
RELAHL92 
HELAHLR3 
HFLAHL94 
HFL  ABL95 
RELABL9<‘> 
RFLABL97 
RFLAHL9* 
RELAbL9<> 
RFLAB100 

RELAB  101 
RFLAB102 
RFLAH103 
RFLAB104 
RFLAB10B 
HFLABlOk 
RELAB107 


210  INK  C (  )  ■  J-1-13S  RELAH10* 

220  CONTINUE  RELAPIOV 

HE  I  URN  RFLAhUO 

ENU  RELAblll 
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SldWClUTtNfc  RPOSN  bPOSN 

CCMMOn/BnUCRS/  WB!(10'>la.7>.rniC109,8). !ND(lfl9,9)i  B^UCRS 

lwBJ(78i8»7),PBj(78»A)«JND(7fl,9)  BNUCRS 

COMMON  /BNDVAL/  WH(-SOO#7).FRXC600)#rFYt600»»rRS<6CO>  BnUVAL 

COMMON  /MATARR/  NMAT, I  HAT < 1? , 5 ) , FMAT < 23 , 5 > » MAT  MaTaRR 

COMMON  /COMVAL/  KT, aKT, DT , DTM IN,  17EP* NEIC'R#  !FO!NT',ERP.EPS,EPSl*PniCOMVAl 
IS. IOP,UAL»KMAX,PORG.PSCL.LB,LF  COMVAL 

COMMON  /MATVAL/  AX,AY,CFL.VJS.VIST.M(j,YC.PH0.X0iP!i#T0.XZ.A.P,ABL»OMATVAL 
1A6l,CHAN,BMAX,F ACT , ANG, AF , SBC , At , AS , A* , HAL . HAS, H A* . C AL , IAS ,  0 AK , D AXM AT V Al 
2.DAY,hUAX»HPaY,DAX2.DAY2»HDAXY.QDAXY.DTR.HALFMU.TRTCMIj.FRTCMU«OOVmMaTVAL 

3  Lit  IREOTM,NI,NJ,NFMAX.  IS.  JS,  !  JS.IBS,  ISB#  JSR#N!Mi,NJH1  .ND'tNOl.NE,  ' 

4,NF .NIP2.NTR 
LCUlCAL  fcHR 

UA I  A  IM, JH.MXS1 ,MXSJ/2HI»,2MJ«.8.8/ 

DC  10  I  ■  l.Nl 
10  1 N  U  < JS*1,1>  =  0 
DC  20  Jsl.NJ 
20  JNU(JS-J,1)  *  0 

IA  *  FRX {  1  BS*1 ) *DAX 
JA  =  FH Y  ( I BS*1 ) *  DA Y 
IF  » AbS<FRY(IBS*l)>,LE.1.0F-4)  JA«-1 
DC  170  L  ■  2,NF 

IP  *  FRK  (  I 8S*L ) *DAX 
Jb  »  FHY ( I BS-L ) *Da Y 

IF l ABS(FRY( IBS*L> ) .nT.l.OF-4)  GO  TO  30 
I  A  —  I  b 
JB*-1 

30  IC  *  Id-i* 

IF  (IC)  40.100,50 
4n  JP  »  I A*1 
IA  ■  IA-1 
GO  TO  60 
50  It  *  I A  *i 
'.P  *  I 

6u  K  =  INU< la  ! P , 1 1 *1 

IF  (K.ltT.MXSD  GO  Tf)  90 
INlJC  IS*IPf  11  =  K 
70  IF  (K.EO.l)  GO  VO  60 
LA  ■  INOI I S* I P, K > 

if  ifry: ihs*la) ,lf.fry( ibs*l-d i  go  to  pc 

JNJ( IS*lPtK*l>  ■  INn<IS*lPtK) 

K  =  P-1 
GC  TO  70 

IMJ(  IS*IP»K-  :>  «  L-1 
GC  TO  JO 

WRITE  (*,180)  IM, IP.MAT.MXSI.AKT 
ERR  «  ,THUE, 

*  JB-JA 

IJC)  110,170, 120 
■  JA*2 
«  JA-1 
TO  130 

*  JA*1 

*  JA*2 

=  JND<  JS*JP,DM 


80 


90 


100  JC 
IF 

110  JP 
JA 
GC 
JA 
JP 
P 


120 

130 


IF  (K.GT.MXSJ)  GO  TO  160 


MATVAL 

6 

BPDSf 

»• 

BPUSN 

V 

BPUSN 

1 

BPUSN 

11 

BPUSf 

u 

bpusn 

13 

B  0  U  7  N 

l't 

BPUSN 

I'J 

B°USf 

IN 

BPUSN 

17 

BPusr 

1" 

BPUSf 

IV 

BPUSN 

2  n 

BPUSN 

21 

BPUSN 

22 

BPUSN 

2  3 

BPUSf 

24 

BPUSN 

25 

BPUSN 

20 

BPUSN 

27 

BPUSN 

26 

BPUSN 

29 

BPUSN 

JO 

bpusn 

31 

BPUSN 

32 

BPUSN 

33 

BPUSN 

34 

BPUSN 

35 

BPUSN 

36 

BPUSN 

37 

BPUSN 

36 

BPUSN 

39 

BPUSN 

40 

BPUSN 

41 

BPUSN 

42 

BPUSN 

43 

BPUSN 

44 

BPUSN 

45 

BPUSN 

46 

BPUSN 

47 

BPUSN 

4  H 

BPUSN 

4  9 

BPUSN 

50 

bPCSN 

51 

137 


JNU( JS* JP# 1 )  «  K 
140  If  <K,fcQ,l)  GO  TO  1*50 
LA  »  JND(JS*JP,K> 

If  IfRXI I  BS*L A  > •  UE ,FRX ( IBS*L"1 ) >  QO  TO  150 
JNU(JS*JP#K*1)  ■  jNn<JS*JP*K) 

K  *  K»l 
GO  TO  14  U 

150  JN  u ( JS* JP , K  *1 )  «  L-t 
GC  TO  10U 

160  WRlTfc  (6,180)  JH, JR.MAT.MXSJ, AKT 
6fiH  a  ,THUE, 

170  CONTINUE 
rtf  i  URN 

180  fCNMAT  (4H0AT  A2#I2.9H  m  a  TER  I AL , ! 2 , ?7H  PCUNDApV  CROSSED  Mf>RF  THAN 

12, oh  T I MfcS3X2HT *f° ,  5 ) 

£NJ 


BPOSN  52 
BPOSN  5i 
BPOSN  54 
BPOSN  55 
BPOSN  56 
BPOSN  57 
BPOSN  58 
BPOSN  59 
BPOSN  60 
BPOSN  61 
BPOSN  62 
BPOSN  6.5 
BPOSN  64 
BPOSN  65 
I BPOSN  66 
BPOSN  67 
BPOSN  68 
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BVALU  i 

CCMMON/flNDCPS/LWB!(l09,8,7),rBI(109«l>* lKD(lf9,9),  gNBCHS  3 

EPS  M1.PD,SS!:i:  I 

COMMON  /COMVAl/  KT,  AKT.nT.PTl'tN.  ITER,  NEJBR,  1P0INT.EBR.EPS.  , 


7 

h 

a 

ir 


4,^^  |N1P2|NTR 
DC  20  l  ■  It  M 
N  =  | ND ( l S* 1 i 1 > 

IF  (N.bO.C)  GO  TO  20 

X  =  FL0ATU-1)*AX 
DC  10  K  •  1,N 

PBl  <  IS* 1 1*)**  FRYUBSAL)*(X-rRX(IBS*L>)*(FRV(lBS-L*l)-fPT(IPS*L>)/By/AL^  13 

... _ _ _  ...i/ircnir^i  1  .TDC M DC*L *1 ) >  BV*Ll 


MATVAL  0 

bvalu 
bvalu 
bvalu 
bvalu 
bvalu  11 
BVALU  12 


=  SON  A»7  "X  II  03*1-  •  -.7 

AO  «  C  S-F«S(  IF1S*L*1»  >/<fRS(  trS*L>“^^S<  1R5?^L*1>  > 

A1  *  1,0-AO 

DC  10  KK  *  l.KHAX 

HBKIS*1|K,KK)  «  AO*MB(lBS*L.KK)*Al*V.B(irS*L*l#KK» 
10  CCINTJNUE 
20  CONTINUE 

DC  BO  J>2fNJ 
N  =  JND(JS*J,1) 

IF  (N.fcO.OJ  GO  TO  50 
Y  *  FLOAT ( J«2 ) *AT 
DC  40  K  ■  1 1 N 
L  »  JND< JS*J,K*1) 


BVALU  1* 
BVALU  17 
BVALU  1ft 
BVALU  19 
BVALU  20 
BVALU  21 
BVALU  22 
BVALU  23 
BVAlU  2A 
BVALU  2B 
BVALU  26 
BV*LU  27 


. » 

AO  *  (S-FRS(IBS*L*1)  )/(FRS(IPSAL)-FBSMBS*U*l>>  bvalu  3? 

Al  ■  1.0-A0  BVALU  33 

DC  AO  KK  ■  l.KHAX  .  uw alL  3A 

BBj(JS*J,K.KK)  -  A0«WB(IBS*L,KK)*A1*UB<IES*U*1.KK)  ^ 

40  CCNTINUE  bvalu  36 

JO  CONTINUE  bvalu  37 

RE  I  URN  BVALU  38 

END 
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1 


I 

•  «*! 


i 


SLeRQUTINt  INTRPL  IMRPL 

COMMON//  w<2200, 7), 1(2200)  JNTVAL 

common/rnocrs/  wBKio«»»R.?).Pfiiao«,a>*iND<in9J9),  bnucfs 

lwBj(7a#8,7),p9j<78, a) , jnD<78,9)  BNUCRS 

COMMON  /COMVAL/  KT,  AKT.nT.DTHJN.  ITER.NE JPR,  IPO  I  NT',  EPR.  EPS,  EPSl,  RD I COMV  AL 
IS, IOP.OaLiKMAX.PORQ.PSCL.LR.LP  COMVAL 

COMMON  /MAJVAL/  Ax,AY,CFL,VlS«VIST,ML,YC,PHO,XO,PO,TO,X2,A,B,ABL,OMATvAL 
1ARL,CHAN,BHAX,FACT,aNG,aF,SBH,AL»AS,AK,HAL#HaS,HAK,CAL,OAS,OAK,DAXMaTVAL 
2 »  C AY, HDaX»HDAT, DAX2 »  DA Y? , HDaXY, QDAXY, DTR, HALFHU#  T^TTMIi  .PRTCMU, OOVMMaT VAL 
3U, iREOTM.NJ .NJ.NFmax, IS, JS, IJS, IBS, ISB, JSR.NJMi.NJMI .ND^NOl.NE.NElMATVAL 


4,Nf ,N|P?,NTR  MATVAL 

LCuICAL  AXIS  I  T  PP  L 

call  iposn  i n t p r l 

DC  to  J  ■  2 , N I  Ml  InTRPL 


2 

2 

> 

3 

2 

3 

2 

3 

4 

5 

6 
7 
H 
9 


H(iJS*I.l)  »  w ( I JS*P*N  I  p2*  1,1) 
« ( i JS* 1 »  2 )  «  W< I JS*?*NlP2»1 ,2) 


fjTPPLlO 

NTRPL11 


W (  I  JS* 1,3)  ■  •k(lJS*2*N!P?  +  I,3) 
w  c  1  JS* 1.4)  ■  W( I JS4?*NJP2*I ,4) 

«<  iJS*t.5>  ■  W< I I P2* I . ?  > 

W<IJS»1.6>  »  -N( l JS*2»WIP?*I ,4) 
w  <  1  JS* 1 .71  ■  W( I JS»?*NIP2*I ,7) 

10  L  « 1 JS* I )  »  L ( I JS*2*N I P 2 ♦ I ) 

DC  580  J  ■  2 , N j M 1 
jw  «  I JS*(J-1)*NIP2 

axis  =  .false, 

If  <J,fcQ.2>  AXIS  *  .TRLP. 

DC  500  I  •  2.NJM1 
1j  ■  JJ«1 

If  ( L  < l J ) . NF . 2 )  GO  TO  580 
dNLRY  ■  U 

A  I  *  FLOAT! I-l)«Ax 
AJ  *  FLOAT! J-2)*AY 

IPUINT  s  L<IJ-NIP2)*3*LMJ*NIP2)*9*L(IJ-1J*27*L(IJ*1) 

JPOINT  ■  I PO I  NT/9 

I  PU I  NT  *  IPOINT-9. JPOINT*l 

If  (AXIS)  I  PO I  NT  b  o 

JPuINT  «  JPO I NT*1 

GO  TO  (20, 230, 30, ton,  40, 50,60,70,80  ),  IPCINT 
20  GC  TO  (220,480,220.350,420,400,220,530,220),  JPOINT 

30  GC  TO  (470,480,210,350,420,400,210,530,210),  JPOINT 

40  GC  TO  (300,480.300,350,170,300,300,300,300),  JPOINT 

50  GC  TO  (  150, 480, 150, 350, 42ii, 150, 150, 530, 150  ),  JPOINT 

60  GO  TO  (470,480,90,350,420,400,90,530,90),  JPOINT 
70  GC  TO  (2H0, 480, 28(1,350, 420, 400, 280, 2*0,280  ),  JPOINT 
80  GC  TO  (  4  70, 480, 46n, 350, 4*0, 400,340, 530, 530  ),  JPOINT 
90  BNuRY  *  .1 
100  N  *  l NO ( IS*!,1) 

DC  110  K  ■  2 , N 

If  (AJ.LT, PBKISM.w)  )  GO  TO  120 
110  CONTINUE 
K  s  N*1 
120  K  =  K-l 

If  (BNURY)  190,130,190 
130  D  *  P6I  (  IS*I,K)-Aj 
AO  «  AY/JAY-D) 

A 1  ■  1  ,  0  •  A  0 


NTRFL12 

NTOPL13 

NIPPL14 

NTPPL15 

MTRPL16 

NTRPL17 

NTRPLlfl 

NTPPL19 

NTRPL20 

NT PPL 21 

NTRPL22 

NTRPL23 

MTRPL24 

NTBPL25 

NTRPL25 

NTRPL27 

NTRPL2P 

NTRPL29 

NTPPL30 

NTPPL31 

N  T  R  P  L  3  2 

NTi’PL  33 

* 1 T  R  P  L  3  4 

NTRF  L35 

NTRPL36 

MTRPL37 

NTRPL38 

NTRPLJ9 

‘ITPPL4 

tg  T  P  P  L  4  3 

NTRPL42 

NTRPL43 

■IT  PPL  4  4 

NTRPL48 

NTPPL46 

NTRPL47 

NTPPL4S 

NTRPL49 

NTRPL50 

NTRPL51 


140 


J 


mw 


frutMOk) 


DC  140  K A,  ■  l.KMAX 

140  WC I J,KK)«*0*HPI ( IS*  l  ,K,KKT*A1*WC I J*NJP2,KK) 

GC  TO  570 

150  DC  160  KK  ■  l.KMAX 

160  H  (  l  J#  KK )  *  W ( I J*  N  J  P6, KK ) 

GC  TO  670 

170  DC  160  KK  ■  1 »  KM AX 

180  H  (  I J, KK )  «  ,25«<W(  I  j*l,KK>*U{  I  J*NtP2#KK)*W(  I  J-MPg.KK) ) 

GO  TO  670 

190  DC  200  KK  «  1 ,  KM AX 

200  W( I J, KK  )  ■  UB! < I S* I » K  *  KK ) 

GC  TO  670 
210  bKuHY  ■  -1 
GC  TO  J30 
220  BNDRY  «  1 
230  N  =  1 NU (  IS*!,l) 

DC  240  K  ■  1 ,  N 

If  (  AJjLt.PRI ( ISM  ,K) )  GO  TO  ?50 
240  CCxTlNUE 
K  =  \ 

250  D  s  AJ-PtfI(IS*I»K> 

IF  (BNU9T)  190,260,320 
260  A0  »  AY/IAV-D) 

A1  ■  1,0»A0 

DC  270  KK  «  1 , K M A X 

270  W(IJ.KK)  ■  *0*WBI (  IK*I,K,KKI*Al*W( JJ*NIP2,KK) 

GC  TO  570 

280  DC  290  KK  «  l.KMAV 

290  W(IJ,KK)  *  W( I J-MtP?,KK) 

GC  TO  570 

300  DC  310  KK  «  l,KMAx 

310  N  < 1 J i KK  )  *  0,5*(W< I J*NJP2,KK>*W( 1 J*NJP2,KK> > 

GC  TO  570 

320  D2  «  AJ-PMI (IS*! ,K-1  ) 

A0  *  D2/(D2-D) 

A1  «  1.0-A0 
DC  330  KK  «  1 , K M A x 

330  W(iJ,KK)  *  A0*VRIUS*I,K,KK)*A1*HPIU?*I,K-1,KK> 

GC  TO  570 
340  BKURY  «  -1 
350  N  *  jNO  <  JS*  J, 1 ) 

DC  360  K  ■  2,  N 

IF  IAI ,LT,PEJ< JS*J,K)  )  GO  TO  370 
360  CONTINUE 
K  *  N*1 
370  K  s  K-l 

IF  (BNURY)  440,380,440 
380  D  *  PRJ< JS*J,K)-AJ 
AO  «  AX/(AX-D> 

Al  «  1  ,  0  -  A  0 

DC  390  KK  ■  1 , K M A  X 

390  R(1J,KK)  •  A0*VBJCJS*J,K,KK)*A1*W<IJ*1,KK» 

GC  TO  570 

400  OC  410  KK  ■  1.KMAX 
410  W I  1 J, KK )  »  W( I J* 1 , KK ) 

GC  TO  570 


NTRHLS^ 
MTRPC1  1 
NT  RPL  5  4 
>|TPPL6‘J 
NTPPL56 
NT  WPL  6  7 

►  TRPLM' 
NTRPL5N 
N  T  P  F  L  ft 
N  T  °  F  L  ft  * 
NTPFLftF 
HTPFL63 
■J  T  KP  Lfc* 
NT  PPL  ft1’ 
N  T  PFL  ft  " 
NT  °P  L  ft 7 
rUFi.ft'- 
N  I  t  P  L  ft  N 
N  T  P  P  L  7 1 1 
' T  PFL  7 1 
N  T  P  P  L  7  ? 
NT  PPL  7 3 
NTRPL74 
- TRPL75 
\TRHL76 
N  T  »  P  L  7  7 

>  T PPL 78 
" TPPL  7  9 
NTRPL  fi  0 
I TPPLBT 
NTPPLB2 
NTRPLB3 
N  T  P  P  L  B  4 
MTPFLBN 
NTPPLBft 
FTPPLB7 
NTPPLBft 
NTPPLB9 
’J  T  P  P  L  9  0 
NTPPLPJ 
NT  PPL  92 
*'T  PPL  9  3 

NTPPL94 
'.TPPL95 
N  TPPL96 
N  T  P  P  L  9  7 
N  T  P  P  L  9  F 
N  T  P  P  L  9  y 
NTRP100 
*'TRP1  0  1 
NTPP102 
' TPP103 
TPP1 04 
NT  Pp 1 0  5 
NTSPlQf 
mTPPIO? 
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420  DC  4J0  KK  ■  l.KMAX 
430  W  (  I J, KK )  ■  0.5«<H( 

UC  TO  57U 

440  DC  450  KK  ■  1,KMAX 

450  H ( 1 J, KK )  ■  WBJ( JS^J.K.KK  ) 

UC  TO  570 
460  BN  DRY  ■  *1 
OC  T&  400 
470  BNDRY  •  1 
400  N  =  JNQ(JS*J,1) 

DC  4*0  K  •  1,N 

IF  <  *  I , Lfc . PR J  < JS*J,k)  >  DO  TO  500 
490  CONTINUE 
K  =  N 

500  D  s  A!-PdJ( JS*J, K) 

IF  (bNURY)  440,510,550 
510  A0  «  AX/<*X-D) 

520  W(1J^KK)K  *  1,KN*X  ,  A0*UBJ<JS*J,K,KK)4A1*W(  1 J-l • KK I 

UC  TO  570 

530  DC  540  KK  «  l.KMAX 
540  W<  1  J.KK)  «  W( I j-l.KK) 

GC  TO  570 

550  D2  *  Al-P»J( JS*J,K-1) 

A0  *  D2/ID2-D) 

A1  «  1 , 0 • *  0 
DC  560  KK  ■  l.KMAX 

560  R(1J|KK)  *  A0*'HiJ{ JS*J,K»KK)*A1*WBJI JS*J» K-l ,KK) 

GC  TO  570 
570  CONTINDF 

500  continue 

DC  600  I  *  l.N'I 
DC  590  J  »  2,MJ 
Ij  *  I JS*< J-l ) *N 1 P2* I 
590  L (  1  J )  «  MIN0<1(IJ>,1> 

W(  I  JS*MIP2*I,3)  *  0.0 
M(  1  JS*N I R2* 1,6)  ■  0 . 

Mt  1  •  W( I JS*?*NIP2*1,1) 

H  (  1  JS*  J  ,  2  )  «  W(  I  JSO*NIP2*I  ,21 
M  (  1  JS* I  >  J  >  ■  *W( IjS*2*NIP?*!i3) 

M (  1  JS* 1.4)  ■  P( I JS*?*N1P2*I ,4) 
w  (  |  JS* 1,5)  ■  W( IJS*5*^IP2*I ,rT 
W  (  1  JS* 1 • 6  >  •  -W< 1 JS*2*N!P?*I ,6) 

W (  1  JS*  1,7)  *  W(IJSO*NlP?*I,7l 
600  t ( 1 JS* J >  •  L< IJS*2*NIP2*I) 

RE IURN 
END 


INTPP10R 
INTRP10R 
INTRPIJO 
iwTRPlll 
I  NT  RP11 2 
INTRP113 
I MTRP1 1 4 
l  N  T  R  P 1 1 5 
IMTRP110 
I VTDPU7 
I  f  1 T  R  P 1 1  f 
PJTRP11V 
I N  T  0  P 1 2  ? 

I  NT RP 123 
INTRF122 
IMTFP123 
JNTRP124 
I  NT RP125 
IMTRP126 
I NTRP3  27 
INTRP120 
IMTRP12? 

I  NTRP 1 30 
I‘JT»P131 
JNTRP132 
J  NTRP133 
P'TPPIJA 
I  NT  PP135 
IMTRP13N 
INTRP137 
INTPP13P 
INTRP13P 
JVTRP140 
INTRP141 
I  N  T  P  P 1 4  2 
I K*  T  OP143 

1NTRP144 

I N  T  R  P 1 4  5 
I  NT  RP3  46 
INTRP147 
JNTRP14H 
I NTRP149 
INTPP150 
I NTRPlbl 
1NTRP152 
I NTRP153 
INTRP154 
I  NT RP 1 55 
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SUbROUT  I UE  IPOSN  I  POSf-.  V 

CCHMON//  w<  2200,7),|.<2200  >  1‘jTVAL  7 

CCMMON/aNOCPS/  W0|  Ct09,8.7),PPI<109,f ). IND<lC9,9>i  BnUOPS 

lwBJ<78,8,7),pflj<7S,n),JNn<7fl,9)  B 'J U C P s  ' 

COMMON  / MATVAL/  AX,  AY.CFL.Vir.VIST,ML.VC,PH0,X0*P0.T1.XZ,A.P,ABL#DM»rvAI. 

1 A6L,  CHAN,  BMAX,  FACT,  ANG,  AF  .  SR’I,  Al»  AS,  A><»  «AL,  HA5.  HAK  ,  C  AL  ,  HAS ,  OA*.  DAXMa  T  VAL  3 
2,CAY,H0AX,HDAY,PAX2,DAYP,HDAXY,Q0AXY#DTR.HALr»tU,THTrni  ,  FRlTMU  ,  OOVMMaI  V  AL  ■> 
3U.  IHfcOTM,NI,NJ,NFMAX,  IS,  JS,  IJS,1BS,  ISB,  JSB.  N  Jt'l,  N  JM1  , \D',  IJP1 ,  NE,  N61MA  T  V  Al  S 


4, NT  ,NIP2,NTP  MATVAL  (: 

DC  60  J  ■  2,NJ  lpu^N  ' 

Jj  s  I JS*( J-l)«NlP2  1 0  u  ^ r  7 

12  a  0  I°UC'.  “ 

N  =  JND(jS*J,l)  I  Pusr,  '< 

IF  (N.tO.O)  GO  TO  5 n  I0')Cr  ln 

DC  <0  K  a  2 ,  N,  2  IPLK'-  11 

11  a  12*1  IP'JST  12 

12  «  I  f  A  T  (  P  B  J  C  JS*J.K»l>«nAX>*l  ’“LSI.  1.* 

IF  (  II. GT,  12)  GO  TO  20  I  PUP’  1-) 

DC  10  I  •  11,12  r’ 

U  *  JJ*1  I’USI-  1’.' 

10  L  (  I J  >  ■  U  I°u<'r  17 

20  II  *  12*1  IPOSN  l'1 


3f 

40 

50 


12  *  I  NT  <  PB J< JS*J,K)«PAX)*1 
IF  (  tl.GT,  12)  r,0  TO  40 
DC  30  I  «  U,I2 
lJ  *  JJ*l 

IF  ( L ( I J ) • GT . 1 )  GO  TO  30 
L< I JJ  ■  2-L< I J) 

CCnTJNUE 
continue 
II  1  12*1 
DO  6Q  l  ■  II, Ni 


PUSN  1  < 
pusr  2i 
PUSN  21 
POST  27 
POSN  23 
PUSN  24 
PDSI.  2b 
PUSN  2» 
POSN  27 
“MSI.  2b 


I-  *  JJ*I 
60  L  < 1 J )  •  0 

DC  ?0  1  a  1 ,  M 
Jl  ■  2 

N  =  I ND ( l S* 1 , 1 ) 

IF  (N,NE,0)  Jl  i  INT(P8t(IS*I,N)*DAY)*3 
DC  70  J  »  Jl.Nj 
lu  »  I JS* ( J-1>*NIP2*I 
70  KIJ)  «  0 

IF  (N.LE.l)  GO  TO  90 
K  s  N 

DC  80  MK  ■  2, N, 2 


PUSN  29 
POST  30 
PUSN  31 
PUSN  32 
“OS!  33 
PUSN  34 
PUSN  3b 
PUSN  36 
PUSN  37 
PUST  3a 
PIS.!  39 
PUSN  At. 


K  =  K-2  IPUSN  Al 

Jl  s  2  I  POST  42 

IF  (K.NE.O)  Jl  a  JNTIP3I ( IS* I ,  K ) *DA Y ) *3  I“USN  43 

J2  a  INTIPBI  (  1 3+  I  ,K*l)*OAY)*2  IPL"^r-  44 

IF  (J1.GT.J2)  GO  TO  90  IPUSN  4b 

DC  80  J  a  Jl , J2  IPUSN  46 

lJ  =  T  JS*  <  J«1 ) *N I P2*  I  ID°sr  47 

80  L( I J)  a  0  I°USf  4 h 

90  CONTINUE  IPUSN  49 

RE  I  URN  IPL,<^  b3 

END  I  P*US6  t>l 
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SLdROUTlNE  PRNPLT 

common  /bNDVAL/  rituft0o.7),rRX<60O)#rpY(600)#rns<6P0) 

COMMON/ SCOTCH/  TWB(300,7).Trrx<300>,’FBV(300) 

COMMON  /MATARP/  NMAT, IMAT(1?,S) ,FMAT(23*5>*MAT 
COMMON  / MONIES/  N36G(5.3> , NEN? <5» 3 > ,  ARCS! 2 (5,3 ) » C I SMAX(5 •  3)  ,  DIR 
15 .  o ) 

COMMON  /COMVaL/  XT,  AKT.DT.nTM in. I  TER, NE 1PR, IPOjNT»EB^iEpS,FPSl 
IS.  I  OP,  JAU»KMAX,PORG,PSCl.,Lr,LF 
XS  =  1,0/PSCU 
YS  *  XS 

CALL  PMNf  l-XS«P0RG,5,0.-3) 

DC  40  .4 A T  »  i.NMAT 
NT  «  MEND ( MAT , 3  > 

IPs  *  IMAT(7,MAT) 

XO  *  FmaT<9,MAT) 

YZ-fMAUU.MAT) 

XZ  *  FMAr<12,MAT) 

A  =  F  MAT  < 13, MAT  > 
b  =  MMAT114,MAT) 

OMAN  s  FMAT(17,MAT) 

BM  A  X  *  FMAT(lfl,MAT ) 

AN L  a  FMAT(20,MAT) 

AF  *  FMA  T  <  21 ,  M AT ) 

DC  10  l  «  1,NF 

CM=rHAY«*«eMAX-FRY<jBS*I)*Y7) 

TFKY(I)  «  A-B*(CM«1.0)/(CH  +  1.(1) 

TFkX(I)  ■  XO*  <  FRX ( I RS* l ) •XZ)*ANQ*TFRY ( I )*TOP« ATANI AF*TF9Y ( I ) ) 
TFMX<  I  )  ■  XS*TFRX( I ) 

10  TFh Y  (  I  )  a  YS*TFRY ( I  1 
CALL  PUNT  (TFRX, TFRv.3) 

DC  20  I  ■  2,NF 
X  =  TF 4X  t  1  ) 

Y  =  TFRY(I) 

20  CALL  PKNT  ( X , Y , 2  ) 

CALL  PRNT  (TFRX, TFRy,3> 

DC  30  1  a  2.NF 
X  =  TFWXll) 
y  =  -TFRYtl) 

30  CALL  PHNT  ( X , Y, 2  ) 

40  CONTINUE 


CALL  FHAMfc 
WRITE  (6, SO)  AKT.KT 
RE  I  URN 

50  FORMAT  UH045X2HTaEl2,5,5Xl4,7H  CYCLTS/lMl) 
END 


PRNPLT  ? 
BNUVAL  2 
SCHTOM  J 
MaTaRR  2 
HINIZONFS  2 
ZONES  3 
, RD I  COM V AL  2 
COMVAL  3 
PRNPLT  H 
PRNPLT  9 
PRNPLTlll 
PBNPLT11 
PPNPLU? 
PRNPLTU 
PRNPLTl* 
OFAX  3'1 

PRNPI.TI’J 
PPNPLT16 
PRNPLT17 
PRNPLTlb 
PRNPL  T19 
PRNPLT20 
PPNPLT21 
PRMP1 T22 
OFAX  39 
PPNPLT24 
PRNPLT25 
PPNPLT26 
PPNFLT27 
PRNPL  T2« 
PPNPLT29 
PRNPLT30 
PRNPL  T31 
PPNPLTJ2 
PRNPL T33 
PRNPLT34 
PRNPI.T35 
PRMPLT36 
PPNPLT37 
PRMPLT38 

PPNPLT39 
PBNPLT40 
PRT.PLT41 
PPNPL  T4  2 
PRNPLT  43 
PRNPLT  44 


144 


SCrtHOUT  I N t  PLTOUT 
COMMON//  -(2200, 7), t (22  1C  ) 

CCmMJn  /mNDVAL/  WB<600,7  ),FRX(600  >,FFY(  600  ),rrcS<6l>0) 
COMMON/ SCOTCH/  TWR(300,7),TFrx< JOO),TFPY(300> 

COMMON  /MAT  ARR/  NMAT , I M AT ( 12 , 5 >  ,FH*T ( 23 ,5 ) , HAT 


PlToUT  ^ 
I  NT  V  AL  <- 
BNUVAL  2 
SCHTCN  2 
MATARP  2 


COMMON  /ZONES/  N3EG(5»3),NENP (5,3), ARCS  12(5,35, niSMAX(5,3), 01 SMIN(ZDN0S  1 
li,0)  ZONgS  S 

COMMON  /COMVAL/  <T,  AKT.nT, DTI'IN, ITER, NEIFR, IPOINT.Eur, EPS, EPSt.RniCoMVAL  / 

IS.  inP,UAU#KMAX,PDRG,PSCL,Lfi.Lr  COMvAL  * 

COMMON  /MATVAL/  AX,AY.CFL,VI".VlST,Mt,YC,RHO,XO.PO,TO.XZ.A.R,ABL.nMATVAL  ' 
1 AR L, CHAN,  HMAX.  FACT,  ANG, AF , SRf, AL» AS,*K,HAL,HAS, HA« , CAL , 1AS.OAK, 0 AXMAT VAL  3 
2,CAY,Hi)AX,HnAY,DAX2.nAY2,HDAXY,aDAXY,DTR,HALFr'U,TWTrML',FRTCMU,OOVMMATVAL  4 

30,  I  PfcOTM,  N[  ,NJ,NFmaX,  I  S ,  JS,  (JR,  IBS,  r  SB,  JSP,  N I  Ml ,  N  JM1  ,  ND'.  NCI ,  NE,  NElMA  TV  A  l  •> 


4, NR  ,N|P?,NTP 

COMMON  /THCPRT  /  NTRS(5),  I  TR  ( ft ,  25 ) ,  TRS  ( 5 ,  ?5  > 
bCu!VAufNCE(YZ,TO) 

UC  60  MAT  a  l.NMAT 
CAlL  fi t N V A L 
DC  10  1  a  1,nF 

CH  =  CHAN«*(BMAX-FRY(  TBS* I )*Y7) 

TF  K  Y ( I )  a  A-a*(OH-1.0)/<CH*l.n> 

TPhX(!)  a  XP*  (  F PX  (  [PS* I ) *XZ )*AN0*TF3Y ( I )*TOP*ATAN ( AF*TF P Y ( I ) ) 


MATVAL  6 
TRCPHT  2 
OFAX  a; 

pl  muTii 

PL  T ni,Tl2 
Pl TOLT1J 
OFAX  41 
pl  t  m.  ti^ 
PL  T  OLTl 6 

10  CCnTINUF  PL  TOUT17 

DC  20  I  a  l.NTR  PLToOTIR 

j  =  I  TM(  MAT ,  1  )  PLlni-TlV 

TRZ  a  ,rx(IBS*J)*TRS(MaT,I)*(FRX(1BS*J*1>-FRX(IRS*J))  PLTDLT20 

TRk  *  FRY( IBS*J)*TRR(MAT, !)*(FRV( IBS* J*1 > -FRY  C IRS*JJ )  PLT  0UT21 

TWn  < 1,2)  *  WB< IRS*J,2>*YRS{MAT,!)*(Wf< !BS*J*1,2  >  *UB  < l PS* J , 2 ) )  PLTOUT22 

Thm(I.i)  =  WB(IDS*J.3)*TRS(MAT,I)*(WM(IRS*J*1,35-'*B(IRS*J.3))  PLT  00  T  S?  3 

CH  =  CMAix**(BMAX-TRR*vZ)  Ofax  4? 

TMo  (  1,1)  »  A-B«(CH.l  ,O)/(CH*L,0)  PLTnilT2b 

20  TUu(l*100,l)  a  XO*(TRZ-XZ)*Al!0>*THB(!,l)*TOP*ATAN(AF*TWBn.in  PLT0UT26 

IF  (MAT.Nt.l)  GO  TO  30  PLT0l'T27 

WR  l  TE ( 2  >  AKT.NMAT.NF, (TFRX( n.TFRY(I), Ial,NF),NTR, (TWR<  1*10  0,1),  PLTOLT2A 
lT-b(  1,1), I«1,NTR),(TWB( !,2),TWB<1#3), I»1,NTR)  PLT0UT29 

GO  TO  AO  PLTOUT30 

30  CONTI NuE  PLT0I.T31 

write  (?)  NF,(TFRX(!),TFRV<!),I  ■  l,NF>,NTR,(TWR(!*10n,l).TWB(I,l)PLTnLT32 
1,1  *  J,NTR),(TWB(I.?),TWB(I,7:),I  a  1,NTR>  PLToUT33 

AO  CONTINUE  PlT Dl)T3A 

YC M  a  0.99*YC  PLT0UT35 

N  =  0  PLT  0UT36 

DC  50  J  a  2, NO  PLT0UT37 

JJ  *  I  US*  (  J*1 ) *N  I  P2  PLTnUTJE 

DC  50  I  «  1 ,  N I  PLTnl'T3R 

IF  (L( J J* I ) ,EQ,0)  GO  TO  50  PLTOUTAO 

YIELD  »  W(  J  J*  1 ,5)**?*W(  JJ*I  ,6)**2*W(JJ*!,7)**2*W(JJ*I  ,5I*W(JJ*I,7)PlTC|UT41 
IF  (YIELD. LT.YCM)  GO  TO  50  PLTDUTA2 

N  =  N*1  PLTOUTA3 

TRZ  a  ) LO*T ( I ”1 ) *AX  PLTnUTAA 

TRW  a  FLOAT( J-2) *AY  PLTOUT45 

CR=CHAN»*(BMAX-TRR*yZ)  OFAX  43 

TFHY(N)  a  A-B*(CH-1.0)/(CH*1  ,0)  PL  TOUT A7 

TFHX(N)  a  X0*< TRZ-X7  >  ♦  ANG*TFPY  <  N )  «Tt)P*  ATAN  ( AF*TFRY(N))  PL  TOUTAfl 

IF  (N.LT.100)  GO  TO  50  PLTOUTAO 

WRITE  ( 2 1  N,(TFRX(K>,TFRY(K),K  a  1,N)  PLTnUT50 
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huJ&Jt/.: 


SLdHOUT  INfc  OUTPUT  OTHT 

COMMON//  w ( ?2C  0 »  7 ) , l (  220 0  )  IUTVAL 

CCmmON/RNUCRS/  W0M1O9,R,7>.PRI  C  109,«  > ,  INDUO’, 9 ) ,  BNUCHS 

lWbj(78,fl,7)<pPj<  78,*) i JND(78,9)  BNUCRS 

COMMON  /bNDVAL/  WPUOO,7),FRX<600>»FPY<600>,FRS<600)  BNUVAL 

COMMON  /MATARP/  NMAT, !MAT<12,5),FMAT(23,J>»MAY  MaTaRP 

COMMON  /MATVAL/  AX,aV,CFL,VIS,V1ST*MU,YC,RH0,X0»P0»T0»XZ,A»R»ABL,DMATVAL 

iapl.chan,hmax.fa:t,ang,af.sbm,al»as,ak,hai.#has,hak#(;al#sas»oak.oaxmatval 

2»CAV,HDAX,Hr)AY,DAX2,DAY?,HDAXV,0DAXY,DTR*MALFHU«TWTCHU»FRTCMU«0f)VMMATVAL 
3Ui  iRfcOTM.NI.NJ.NFMAX.  IS, JS,  !JS, IBS,  !$B,JSP,NIM«  ,NJMl,Nfi,Nni,NE,NElMATVAL 
4,  M-  ,MP?,NTR 

COMMON  /TVALS/  ISTAPT,TmaX,TPRIN,TRRPL,TPL0T,TSAVE,TCOMR.TZ 
common  /THCPRT/  NTR«I<5),  ITRrr,25)iTR*(5i25) 

COMMON  /COMVAL/  KT,AKT,t)T.DTMIN,ITER,NEIBR,  IFOINTiEPP.EPS.EPSl, 

IS,  l  OP.  ual,KMAX(POPG',PSCL.LP.LF 
COMMON  /1NTFC/  NlNFr, INFC(60),NON1N<20,5) 

COMMON  /PRESS/  PDER.PR, PE. MATN0 
DIMENSION  WCUT ( 8 ) 

ECUIVALENCE(YZ.TO) 

LCmICAL  PDER 

H( y)«A-R«(CHAN**(RMAX-Y*YZ)-1.0»/<CMAN**(RHAX-V*YZ)*1,0» 

Z  c  x ,  Y  )  *  XO*(X-XZ)*aNG*V*TOP*ATAMAF«Y) 

PCtR  «  .MLSE, 

DC  100  MAT  ■  l.NMAT 
I  PM  I  NT  *  IMAT<11,mat) 

JPMlNT  =  I  MAT ( 12 , MAT ) 

IF  (MAT.nE.1)  GO  TO  10 
CALL  SECOND  (TD 
RT  «  Tl-TZ 

WRITE  (6,170)  AKT.DT.KT.RT 
GO  TO  20 

10  WRITE  (6,130)  MAT 
20  CALL  GENVAL 
WRITE  (6,120) 

ZMIN  *  1 ,  0E6 
RM1N  r  ZMIN 
ZMAX  =  -Z^IN 
RM  A  X  e  7mAX 

DC  40  I  •  1,NF 

ZMIN  «  ah  I N1 <  Frx  t IBS*I>,ZMIN) 

ZMAX  ■  amaxi(Frx<!BS*I),ZNAX) 

RM1N  ■  AMlNl(FRY( IBS*! >,RMIN) 

RM  A  X  ■  AMAX1(FRY( !B9*I ),RMAX) 

RR  s  R(FRY(!BS*|)) 

ZZ  *  Z ( FRX ( I  BS*  I  ) ,  RR ) 

DC  30  KK  «  1,7 
30  WCUT(KK)  «  WB( I BS* I , KK ) 

WOUT(fl)  «  PRS(WOJT(1),WOUT<4))*PO 
WCUT(I)  *  W0UT(1)*RW0 
WCuT ( 5  )  *  W0UT(5)»P0 
WOUT ( 6  )  «  WOUT ( 6 ) *P0 
WOUT ( 7  )  i  WOUT ( 7)*P0 
40  WRITE  (6,140)  I, ZZ, PR, WOUT 

IF  ( IPRINT.eq.o.OR, JPRINT.EO.D)  GO  TO  7C 
IE  ■  I  NT ( ZMI N»DAX ) ♦  ? 

IE  *  I  NT ( ZMAX*DAX ) *1 


MATVAL 

A 

TVALS 

? 

trcprt  y 

COMVAL 

COMVAL 

i 

IMTFC 

?. 

PRESS 

y 

OTHT 

13 

OFAX 

44 

OTMT 

14 

OFAX 

4S 

OTpT 

16 

OTHT 

17 

OT,  T 

If 

OTHT 

19 

OTPT 

20 

OTHT 

21 

OTPT 

22 

OTHT 

23 

OTHT 

24 

OTT'T 

•  6 

OTt  T 

26 

r 

27 

(  ,:jr 

2P 

OTHT 

29 

OTH  • 

30 

OTH- 

31 

OTHT 

32 

OTHT 

33 

OTPT 

3* 

OTHT 

36 

OTHT 

36 

OTHT 

■J  7 

OTHT 

,< 

OTHT 

39 

OTHT 

40 

OTHT 

41 

OTHT 

42 

OTHT 

* : 

OTHT 

A  4 

OTHT 

46 

OTHT 

46 

OTHT 

47 

OTHT 

46 

OTHT 

4  9 

OTHT 

5  ) 
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MINU< ir*lPRlNT-l, IE> 
MAXO  ( tE*IPRINT*l#  IE) 


Ml  NO  < JOJPR I NT«1, JE  > 
MiXO<jr*JPR!NT*l,JB) 


IF  ( iPHINT.GT.O)  ! E  * 

IF  ( IPHINT.LT, 0>  19  « 

jP  «  INT(RMIN*DAY>0 
jt  *  I»t(RMax«DAV)0 
IF  (jP,  NT.GT.O)  JE  ■ 

IF  ( JPHInT.LT,  0)  JB  « 

WRiTt  16(150) 

DC  60  J  ■  JB ,  JE 
Wfi 1 Tb ( 0 » 190  )  J 

RR  »  PIFlOATI J-2)«AV) 

■  I JS*< J-1)*NIP2 
DC  60  I  •  IB, IE 
IF  <L<JJ*l).EQ.Q>  GO  TC  oO 
IZ  •  2  t  FLOAT « I-1)*AX#HM) 

DC  50  KK  «  1,7 
50  wCuT(KK)  •  W(JJ*I,KK> 

PRS<W0JT<1 ) , wOUT ( 4 ) )*P0 
WOUT  < 1 )  «RwO 
WOUT(5)»PO 

WOUT ( 6) ♦PC 
WOUT(7)*Pn 

l,zz.»R.wnuT 


60 

70 


80 


90 

100 


110 


WCUT(KK) 

wCuT ( 8 )  ' 
wCUT  < 1  ) 

WCU  T ( 5 ) 

WCuT ( 6 ) 

WCuT ( 7  ) 

WRITS  (6(140) 

ccntinue 

WRITE  (6,160) 

DC  90  1  *  l.NTR 

TRZ  iT?iInBsij)*TSR(MAT.I).<rRX<IBS*J*l)-rRX(lBS*J>) 

TRh  ■  F  BY(  mS*J)*TR<!<MAT,  I  )*<FRY(  l BS* J-l ) -PRY  (  I  BS*  J  »  ) 

SSU?!«“  ■  iSuSs.J.««I.T»S.",T . . . 

RR  a  RITRR) 

12  ■  Z  (  THZ, RR ) 

WCUT ( 8 )  ■  PRS<W0JT<1 ) ,W0UT<4) >*P0 

WCUT(1)  ■  WOUT ( 1 ) *RM0 

WCuT ( 5 )  ■  WOUT ( 5 ) *P0 

WCUT ( 6  )  •  WOUT(6)*Pn 

WOUT { 7  )  ■  WOUT ( 7 ) *P0 

WRITE  (6(140)  I.ZZ.RR.WOUT 

continue 

DO  110  I  ■  l.NINFC 

JE  ■  6"  I 

JB  ■  J6-5  _ 

WRITE  (6,180)  ( I  MFC  I J) ( J  ■  JH.JE) 

RETURN 


OTPT 

51 

OTPT 

5? 

OTPT 

53 

OTPT 

54 

OTPT 

55 

OTPT 

56 

OTPT 

57 

OTPT 

5  5 

OTPTCl  1 

OTPT 

5'< 

OTPT 

6» 

OTPT 

61 

OTPT 

62 

OTPT 

63 

OTPT 

64 

OTPT 

65 

OTPT 

66 

OTPT 

6  7 

OTPT 

6« 

OTPT 

69 

OTPT 

7D 

OTPT 

71 

OTPT 

72 

OTPT 

73 

OTPT 

74 

OTPT 

75 

OTPT 

76 

OTPT 

77 

OTPT 

76 

OTPT 

79 

OTPT 

80 

OTPT 

61 

OTPT 

62 

OTPT 

83 

OTPT 

84 

OTPT 

OTPT 

OTPT 

OTPT 

OTPT 

OTPT 

OTPT 

OTPT 

OTPT 

OTPT 


20*«12  ER(iS2xi2wiO»»l2  5INaSl»rBftREC9x8HHirR0SEC6X4HCR*M*X5WCM»«28x0Tf’TCl  4 
310**12  DTNES/30X5HCM*«37x8MMirROSEC9X8HHirRO5tCO*«m.r».r-**5  w  0TPTC1  5 


85 

86 

87 

88 
b9 

90 

91 

92 

93 

94 

95 
2 
3 


«jh;m**2AX9MCM«*28x5wCM  2//)  0TPT 

130  FCHMAT  (1H1//58X8WMATERIAL12)  OTPT 

140  FCHMAT  < 19(2F10,4,8E13,5)  OTPT 

150  FCHMAT  (1HO/55X15HINTERIOR  P£,NT?’  OTPT 

160  FCHMAT  < 1H 0/54 XI &HTP ACER  PARTICLES)  CYCLES5X13HELaPSE0  TIMOTPT 

i7oiKr:t;/S5;5ts?si;u^5M55;;rm?s5ssEcSiBM5X7»*EcoNc*//fM0,TxioHH.oTPTcx . 


97 

98 

99 
IOC 
101 
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.-'■fMafft 


2T£h!AL  1) 


OTPTCl  7 


i80  FCHMAT  (9H0M*TEBUL!2#11H  F ROM  P0!NTt«#9H  TO  P0IN?!4,31W  HAS  AN  INOTPT  103 


1TEHF  ACE  WITH  MaTER!aU2,UH  F*OM  P0!KITl4,9H  TO  POINT  1 4  ) 
190  FOHMATUH059XI3) 

EMJ 


OTPT  1 0  A 
0TPTC1  H 
OTPT  10*5 
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y^TO'IWWBlI  HfTOTfmiWCTTI  Mw™  - 


Sl'flRU'JTlNF  SAVE 
COMMON//  W<2200.7t,L<22lin> 

COMMON  /aNDVAL/  WBUOO,7),FRX(600>#FRY(600),FRS<600) 
COMMUN/SCRTCH/  TWn<300,7),TrhXt300»jTrRV<300> 

COMMON  /ZONES/  NtiEG<5»3>.NEND<5.3>. ABCS IZ < 5. 3 > » 0 1 5MAX < 5, 3> 
19.3) 

COMMON  /MaTaRR/  NMAT. IMAT(12,5),FMAT(23,5»,MAT 
COMMON  /COMVAL/  KT,4KT,nT,t;TMlN.  ITER, NEIBR.  1P0InT.ERR.EPS, 
lS.TOP,LAU.KMAX,PORC,PSCL,l.b,LF 
COMMON  /TPCPRT/  NTPS(*>),  ITR(3,2S), TRS(5.25) 
common  /  I  N  T  F  C  /  NPIFe#  INF  C  <  oO  ) ,  UON I K  <  2  0  ,9) 

REWIND  1 

WR I Tfc  (1)  KT.AKT.OTMIN 
Mfj6  o  6*MjNFC 

WR  J  Tfc  (1)  NJNFC.NIN6.  <  1*'FC(  I  ) ,  I  ■  1  ,  M  N6  ) 

DO  70  MAT  *  1 ,  NMAT 
NTR  ■  NTHS(MAT) 
rr  ■  MENU ( MAT • 3 ) 

MI  ■  I M A T (l, MAT) 

NIP2  *  NI*2 
|JS  •  Imat<«,maT) 

I  ns  ■  imat(t.mat) 
ax  *  fmaT <1,maT) 

WAX  *  1,0/AX 
A YlFMAT ( 2 , HAT 1 
DAY»1,0/AY 
VZifMATUl.MAT) 

XZ  *  FMATU2.MAT) 

ZM I N  ■  1.0E6 
RM I N  =  ZM I N 
ZMAX  »  -ZMIN 
HMAX  e  ZMAX 
U0  10  l  ■  1 1 NF 

ZMJ.V  «  AM  I N1  ( FRX  (  IBS^DiZMJN) 

ZMAX  »  AMAX1<FRX(IES*I).ZMAX) 

RM I N  >  AMIN1(FRY(IBS*I).RMJN) 

10  RMAX  «  AMAX1(FRY(IES*I)iRMAX) 

JB»INT(ZMIN*DAX)*2 

IE«INT(ZMAX*DAX)*1 

JB«INT(RMIN«UAY)*3 

|F(RMIN,LE,l,0E-4)  JB»1 

JE«INT(RMAX*DAY>*2 

N I  «  IE“IB*1 

NJ  ■  JE-JBM 

ZDF  «  FLOAT ( !•  I  B )*AX 

XZ  ■  XZ*ZDF 

RDF»FLOAT(l-Jfl)«AV 

YZ»YZ*RDF 
00  20  I  ■  1 ,  NF 
TFRY  (  I ) »FRY( I  PS*  I  >*RDF 
20  TFRXtl)  ■  FRX<  IBS*l )*ZLF 

wp  j  Tfc  U)  (N3E(i(MAT,I),NEN0(MAT,l),ARCSIZ(MAT,I),I  ■  1.3) 
l.NF.YZ 
1  Tl»  1 8S*1 
j  T9* i  bs*nf 

»R I Tfc ( 1 )  ( (UB(  I  .KK)  ,KKb1#KMAX).FRS( I )« I ■ I T1 . I T 2 > , ITFRXU ) 


save  ? 

I  ‘I  T  V  A  l  2 
rf^DVAL  ? 
ScRTCh  2 
. O I SM I N { Z^NfeS  ? 

zones  3 
matarr  ? 
ERSt.RDlCOM.VAL  ? 

COMVAL  3 
YOCPRT  5 
1‘iTfC  5 
S»VP  11 
Save  1? 
save  n 
save  ia 
SaVE  15 

save  14 

SAVE  17 
SAVE  14 
save  ip 
Save  2n 
save  21 
save  22 

save  23 
OFAX  46 
OFAX  47 
OFAX  44 
Save  25 
SaVF  26 
save  27 
SAVF  24 
SAVE  29 
SAVF  3(1 
Save  31 
Save  32 
Save  33 
save  34 
SavECI  1 
SAVEC1  2 
OFAX  49 
OFAX  50 
SAVECl  4 
SAVE  39 

save  4n 
save  <1 

SAVE  42 
OFAX  51 
OFAX  5? 
Save  43 
OFAX  53 
SAVE  44 
.XZ.NI .NjSAVE  45 
OFAX  54 
SAVFCl  6 
SAVECl  7 
,TFRV( I), SAVFCl  8 
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ll»l»'<r>#FMAT(22.«AT> 

WRJTE  (i)  NTR.(!TR(MAT,I),T»S<MAT.I)«I  •  l.NTR) 
DO  25 

JJ»!JS*< J-1>*H!P2 
IT2«JJ*IE 

25  HR  I Tfc  <  X  >  C ( ta ( I »KK) #KK«1»KMAX ) »U<!>#I"IT1*TT2) 

JO  continue 
end  file  1 

RETURN 

fc»D 


SavECi  5 
SAVE  ♦« 
SAVECllfl 

saveciu 

SAVEClU 
SaVECU  1 

SAWSC114 

Save  5? 
Save  5.4 
save  54 
Save  5s 


c 


Slt)H(JU T  1  Nfc  FRAME  fpmp 

CCMMQN  /COMPLV  1X0,  I  YO, IXN, 1YN, 1PEN,  !H*X»  JMAX,Np',M*XP#H(?OBO)#rLAFRME 
lGi XSf Yb  FPME 

DIMENSION  L < 121 )  ,  I CHAR< 37 )  FP*F 

LOGICAL  IPEN,FL*0  FP"F 

DA  I  A  IdlNK/lH  /  rRTE 

DA  1  A  ICHaM/1H*,1HA,1HB,1HC,1HD,1HE,1HF,1HO,1HH,IHI,1HJ,IHK,1HL.1HMFRME 

1»1hn,1HO#1HP,1hOi1HB,1HS,1HT,1HU*1HV,1NW,1HX,1HY,1H7»1HO»1M1.1H?»1FRME 

2H3,lH4,lH5,lH6,lH7,1Hfl,lH9/  FP"F 

WRITE  (6,50)  FPMF 

N  *  1  FPMf- 

JT  »  !MAX*JMAX  FR"F 

DC  30  I  »  l.IMAX  fp"f 

JT  •  JT-jmax 

DC  10  J  ■  l.JMAX  'Rr’E 

if  U(J)  *  idlnk  fp^ 

20  MX  ■  M(N)/6A 

IF  <MN.LT.JT)  GO  TO  30  FP"F 

Jj  «  MN-JT  FR"P 

K  =  M(N)-MN*6A  fpnf: 

u(jj)  ■  i Char < k ♦  l >  FR"| 

N  =  N*1  FRMF 

IF  (N.UE.NP)  GO  to  20  FR'JE 

WRITE  (6,60)  L  FR”F 

GC  TO  40  FPMF 

30  WRITE  (6,60)  L  FR"F 

40  CALL  RESET 

RE  i  URN  FRMF 


50  FCHMAT  aHD 
60  FCwMAT  <1H  ,121A1) 
fcXU 


FRME 

FRMF 

FRMF 


2 

3 

4 

5 

6 
7 
f 
9 

10 

11 

12 

13 

1* 

15 

16 
17 
lw 
1’ 
2(1 
21 
22 

23 

24 

25 

26 
27 
2M 

29 

30 

31 

32 

33 
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SLBHOUI iNfc  PRUTS  <N,M) 

plts 

2 

CALL  PfcSfcT 

PLTS 

5 

Rfc 1  URN 

puts 

A 

fcNL) 

pits 
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SLoROuTlNt  RESET 

COMMON  /COMPlT/  1X0.  IVOiIXN.IYN.  I^EN, JH*X, 
1G.XS.YS 

LOGICAL  IPEN.TlaG 

I xo  ■  1 

I  v  u  ■  1 

|XN  ■  1 

IYN  »  1 

I P  e  N  *  .TRUE. 

FLAG  *  .TRUE. 

NP  3  0 
RE  I  URN 
ENlI 


RStT  2 

JMAX,NPiMAXP,H<?000).ELARSbT  3 

RSfcT  A 
RStT  'i 
RSfcT  ft 
RStT  7 
RStT  H 
RStT  9 
RStT  10 
RStT  11 

RStT  12 
RStT  1 3 
RStT  1 A 
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albROUTINfc  PRNT  (X.Y.JP) 

COMMON  /COMPLT/  I XO.  I YO. IXN, I YH,  I  PEN#  IPAX,  JMAX.NP',  MAX*,  M(  20  00  > 
1G.XS, YS 

LOGICAL  |PEN,FLAQ 


PRNT 

.FLAPPNT 


.TPU6. 

■  FALSE  t 


*  JFIX<XS»X)*!XQ 
«  IFIX<YS*Y)*JY0 
«  JP 

I IAriS( IP) ,EQ,2)  IPFN 
<  1  A t) S  (  IP )  .  EQ .  3  )  I  PEN 
( .NOT. IPEN)  GO  TO  AO 

*  M I  NO  < I Y, IYN) 

*  KAXQdY.lYN) 

*  M I  NO  <  IX, IXN) 

*  MAXU  < IX, IXN) 

(IF.GT, IMAX.CR.IL. LT.l. OH, JF, GT.JPAX.CP.JL.LT, 1)  CO  TO  40 


IX 
IY 
IP 
IF 
IF 
IF 
IF 
IL 
JF 
JL 

IF  l)r  (Ui  iini 
1 C  X  ■  IX-IXN 

I C  Y  ■  JY-IYN 

IF  ( I AdS ( IDX) ,GT,  lAPS(IOYJ)  GO  TO  20 
IF  (  IDY.ECl.O)  GO  TO  40 
IF  «  MAXQ ( I F, 1 ) 

IL  «  M I  NO  <  IL. IMAX) 

DC  10  I  ■  IF.IL 

J  =  IXN*(  IDX*< I-I YN))/IDY 

IF  < J.LT.l.OR, j.GT.JMAX)  GO  TO  10 

CAlL  SfcTPT  d.j.O) 

IF  (  , NOT, FLAG)  GO  T M  40 
10  CONTINUE 
GO  TO  40 
20  CONTINUE 

JF  ■  MAXOIJF.l) 

JL  ■  MIN0< JL.JMAX; 

DC  30  J  ■  JF.JL 
I  =  iyn*<  l dy* c j-ixn)  > / 1 nx 
IF  (l.LT.l.OR.I.GT.IMAX)  GO  *n  30 
CALL  SfcTPT  (j.j.O) 

IF  ( .NOT. FLAG)  GO  TO  40 
30  CONTINUE 
40  IXN  ■  IX 
I yn  »  iy 

IF  (IP.GT.O)  RETURN 
I X  U  ■  IXN 
I  Yu  ■  IYN 
RE  I UHN 
ENU 


PRNT 

4 

PRNT 

t> 

PRNT 

t 

PRNT 

7 

PRNT 

h 

PRNT 

9 

PPNT 

in 

PRNT 

13 

PRNT 

12 

PRNT 

13 

PRNT 

14 

PRNT 

1*3 

PRNT 

1C 

PRNT 

17 

PRNT 

la 

PRNT 

19 

PPNT 

20 

PRNT 

21 

PRNT 

22 

PRNT 

23 

PPNT 

24 

PRNT 

2b 

PRNT 

26 

PPNT 

27 

PRNT 

28 

PRNT 

29 

PRNT 

30 

PRNT 

31 

PRNT 

32 

PRNT 

33 

PPNT 

34 

PRNT 

3b 

PRNT 

36 

PRNT 

37 

PRNT 

38 

PPNT 

39 

PRNT 

40 

PRNT 

41 

PRNT 

42 

PPNT 

43 

PPNT 

44 

PRNT 

4b 
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SLdROUT I N£  SETPT  t I , J, ICHR) 

STPT 

2 

COMMON  /COMPlT/  1xO.1YO.IXN, 

I YN, 

IREN, I  MAX, JMAX,Np;MAXP,M(2000  > 

.FLASTPT 

3 

1G,XS,YS 

STPT 

4 

LCulCAL  IPEN.FLAG 

STPT 

5 

N  *  (JMAXM  I -1  >  *  J ) 

STPT 

6 

CALL  SEEK  (M.NP.N.K) 

STPT 

7 

IF  <K,UT,0)  RETURN 

STPT 

8 

NP  ■  NP*1 

STPT 

9 

IF  (NP.GT.MAXP)  GO  TO  30 

STPT 

10 

K  •  *K*1 

STPT 

11 

IF  (K.UT.NP)  GO  TO  ?0 

STPT 

1? 

LL  *  NP 

STPT 

13 

DO  10  L  ■  K.NP 

STPT 

14 

LL  *  LL-1 

STPT 

15 

10  M ( LL *1 )  ■  HILL) 

STPT 

16 

20  M(H*1)  «  N* ICHR 

STPT 

17 

HE  1  URN 

STPT 

16 

30  NP  *  NP  *  1 

STPT 

19 

If  (FLAG)  WRITE  (6,40)  NP 

STPT 

ari 

FLAG  .  .FALSE, 

STPT 

21 

RE  IUSN 

STPT 

22 

STPT 

23 

40  FCHMAT  (1H1///25H0ATTEMPT  TO 

SET 

MORE  TWANI6,38H  PRNT  POUTS, 

REMaSTPT 

24 

HUNG  POINTS  IGNORED) 

STPT 

25 

ENU 

STPT 

26 
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SldROUTINt  SM80L  <X,Y,ISYMB) 


SMHL 


ICMW  /C0Hp[t/  liS'.iYOrixNilYN.IPEN.IMAX.JMAX.NPi^.HljOOO^LASMHU 

1G,XS,YS  SM“L 

LOuiCAL  (PEN, FLAG 

I xim  ■  i r  i x < xs*x > * i xo 

I  Y N  «  I F I  X ( YS*Y ) ♦ 1 YO 

IF  ( IXN.LT.i. OR. IXN.GT.JmAX.OR.IYN.lt.) .or. IYN.GT.1vAX)  return 
CALL  SfcTPT  ( JYN, IXN,  1 SYM0 ) 

HE IURN 
fcXU 


SMHL 

SMBL 

SMHL 

SmUL 

SMUL 

Shhl 

SMbL 


2 

3 

4 

5 

6 
7 
f' 
<3 

It: 

11 
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SUBROUTINE  SEEK  <A,mP,PP,K) 

SEtK 

2 

DIMENSION  A ( 1 ) 

SEEK 

3 

IMEGEH  A  *  P  *  PP 

SEtK 

4 

IT  ■  NP 

SEtK 

5 

IE  (JT.FO.O)  00  TO  70 

SEtK 

6 

18  »  1 

SEtK 

7 

P  »  PP 

SEEK 

D 

IE  (<P-AU>)/64)  10,20,30 

SFtK 

9 

10 

IE  (  (P-At IT) J/64»  40,50,60 

SEtK 

in 

20 

I  *  1 

SEtK 

li 

GC  TO  10 U 

SFtK 

12 

30 

I  *  -1 

SEtK 

13 

GC  TO  100 

SFtK 

14 

40 

l  *  -IT-1 

SEtK 

15 

GC  TO  100 

SEtK 

16 

50 

1  *  IT 

SEtK 

17 

GC  TO  100 

SFtK 

10 

60 

IE  (  IT-td,E0.1)  GO  TO  90 

SEtK 

19 

I  *  ( 1 8* l T ) /2 

SEeK 

20 

IE  ((P-AlI))/64)  70.100,80 

SEtK 

21 

70 

18  >  I 

SEtK 

2? 

GC  TO  60 

SEtK 

23 

SO 

IT  »  I 

SEtK 

24 

GC  To  on 

SEtK 

25 

90 

I  -  -IT 

SFtK 

26 

100 

K  =  I 

SEtK 

27 

RE  1  URN 

SEtK 

2H 

END 

SEtK 

29 
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blUCK  DAT*  BKUT 

CCMMqn  /COMPLT/  I  X  0  . 1  YO,  IXN,  tYN,  I  PEN,  !HAXiJMAX#NP,MAXP#M(?000)»n.ABKUT 


1G,XS,YS 

DA  I  A  !MAX» JMAX,MAXP/61»121#?COO/ 

DA  I  A  XS.YS/lO.OOOt.A.OOOl/ 

tNu 


BKUT 

BKUT 

BKUT 

BKUT 


2 

3 

4 

b 

o 

7 
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onn 


FUNCTION  PRS  ( SHOO#  FE )  PR*  ? 

COMMON  /PRESS/  POFR,PP»PE,MaTNO  PRESS  2 

COMMON  /60STP/  APL (10),»PL(10),APB(10).BPB(10),ALPH<in);BFTA(10)iEEOSTP  2 

lS(10),hZfcRO(10>,ESPBM(lO>.RMOZRO(l0>,PM!M10)  EQSTP  3 

LClilCAL  MlN  PRS  S 

LOGICAL  PDER  PRS  o 

REAL  MU  PRS  ^ 

DA l A  APLiRPL»*Pe.PPP.*LPH,0ETA,RHOZRC,EZEPO,ES,FSPRM,PM!N/O.5,O,5,PRS  P 
10 ,  a, 0 . 9, 0,5, 0,0, 0.0. 0.0.  C .0 . C .0.1,50,1,04,1,50,1,10,1.63, O.O.O.O.OPRS  R 
2,0.0,0,0,0,J.28.3,Q8.1,?8,.068.0,75,0,0,0.0»0.0,0;0.0.0.1.05,2.50,PRS  I'i 
31 |U5, 0. 04#0, 65, 0,0.0, 0,0, 0#0.0.0,0#5, 0*10. 0*5. 0«5;o*5.o;o. 0*0. 0#0, PRS  11 

40, u, 0,0. 0,5,0,10, 0,5, 0,5. 0,5. 0,0, 0.0, 0,0, 0,0, 0,0, 0,7, 8, 17.04, 8, 0,1 PRS  12 
5 , 694 , 2 , 79, 0 , 0 , 0 , 0 , 0  TO ,  0 , 0 , 0  ,  f  .  0 ,095, 0 ,225, 0 , 0^5, 0  ",  060 . 0705, 0 , 0, 0  ,  OPRS  13 
6, 0  .  0  ,  0  ,  0,  0  .  0,  0  ,  0 244, 0.0  111, 0.0244, 0,0320, 0,03, 0,0, 0.0, 0.0. 0,0. 0,0, PRS  1< 
70, 1 02,  U.  056, 0, 10  2, 0. 1 80,0. 15,  U.  0,0,  0,0.  0,0.  0,0.0,  •0,0  35'. -0,0  0371  , -PRS  1^ 

80, UJ5, -0,0033,-0. 035, 0  .  0  .  0  .  0 , 0  .  0, 0  ,  0,  0  ,0/  PRS  K 

M AT  <  U • TARGET ,  MaT(2>*PROJ  ,  MAT<3>«PR0J  SHF  A  TH  PRS  17 

PRS  10 

MAI  ■  MATNO  PRS  19 

ETa  ■  KHOO  PPS  20 

IF  (ETA. UT. 0.0)  QO  TO  10  PRS  21 

fcTA  ■  -ETA  PRS  22 

min  ■  .false.  prs  23 

GC  To  20  PRS  24 

10  MlN  *  ,THJE,  PRS  ^ 

20  CONTINUE  PRS  26 

6  -  EE  PRS  27 


R  =  fcl A«RHOZRO(MAT )  PRS 

ML  s  ETA-1.0  PRS 

ir  v  «u",(mu)  .lt.i.or-a)  Miun.n  prs 

£/  ■  bRL(HAT)/(E/(E7ERO(MAT)*FTA**2)*l,0)  PRS 

IF  (tTA.Ub.l.0.OR.E.Lt,ES(MAT)  )  GO  TC  30  PRS 

if  (e.ge.esprh(mat) >  no  td  50  prs 

PRS 

COMPRESSION  PBS 

PRS 

30  PRSC  «  (APL(MAT)*FX»*E*»*(APn(MAT)*flre<HAT>*HH>*MU  PRS 

IF  (MIN)  PRSC  «  AMAXl<PW$r,PHJN(MATn  PRS 

IF  < , NOT , PDFR )  GO  TO  40  PPS 

PRL  ■  UPL(MAT)*EX)*E*< APP(mAT)*2,0*RPB(PAT)«MU)/RHCZRO(MAT)*2,0*(PRS 
;E*tX/ETA|#*2/(EZERO(MAT)«PPL<MATn  PRS 

PEL  •  (aPL(MaT)*EX-p*<EX/ETa)**2/(EZER0(MaT)*BPL(uaT> ) )*R  PRS 

40  IF  <ETA.uT.i,0,AND.E,OT.FS(MAT)I  GO  ’0  50  PR!> 

PRS  ■  PRSC/RHCZRO(MaT>  prs 

IF  (, NOT, PDER)  RETURN  PRS 

PR  ■  PRC  PRS 

PE  «  PEC/RHOZRO(MAT)  prs 

RE  I  URN  PRS 

50  EY  »  EXP(*ALPH(MAT)*(MU/ETA)**2)  PRS 

EZ  ■  EXP(8ETA(PAT)*mU/ETA)  PRS 

PRSE  *  apL<mAT)*E»R*(E*R«FX*APB<mAT)«mL*F7)»EY  PRS 

IF  (MIN)  PRSE  e  APAXl<PRSF,Pf  IN(MAT) )  PRS 

IF  (, NOT, PDFR)  GO  TO  60  Pf>i 

PRt  ■  AP0<MAT)*E«((P*R*FX*AP0(MAT)*ML*E7)«2t3*ALPH(PA7)*Mu/(R*ETA»PRS 
1*2)*E*6X*2.0*(E»Ex/RTA ) **2/(r7ER0(MAT)*PFL(«AT) )*(APB(MiT)/RHOZRO(PRS 
2HAI )*APBlMAT)*MU»RfcTA(MAT)/(rTA*R>)*"Z>»FY  PRS 
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Pfct  •  (*PL<MAT)«<EX-E*<EX/FTA)**2/<EZER0(MAT)*BPL<M/kTm*FY>*R 
60  IF  (E.LT.ESPRMIMAT)  )  r,0  TO  7? 

PRb  ■  PRSE/BHOZRO(MAT) 

IF  (,N0T,P0ER>  return 
PR  *  PNE 

Pfc  •  P6E/RH0ZR0OUT1 
RE  I  URN 

70  A  *  <E-ES<MAT> )/(ESPRM< HAT).ES(HAT) ) 

B  s  (FbPRN(MAT)»E)/<ESPRM(MATi-SS<HATn 
PRb  ■  (A*PRSE*B*PRSc)/PH02R0(HAT) 

IF  ( , NOT , PDER >  RETURN 

PR  *  A*PRE*B«PRC 

PF.  ■  (A»P6E*B*PEC)/RH0ZW0(HaT) 

RE  lURN 
fcKU 
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